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TURTLE GRAPHICS PROGRAM EQUATES 


> EQUATE FOR BOOT VERSION OR CARTRIDGE VERSION 


BOOT * 0 & DLOAD * 0 PRODUCES THE CARTRIDGE VERSION. 

BOOT = 1 & DLOAD = 0 PRODUCES THE CASSETTE/DISK BOOTABLE VERSION 

BOOT * 1 Sc DLOAD * 1 PRODUCES THE DISK LOADABLE VERSION. 

BOOT = 0 DLOAD » 1 IS NOT A VALID COMBINATION! 


DLOAD = 0 

BOOT = 1 

i COLLEEN I/O 


CIO 

= 

$E456 

IOVBAS 

s 

$E400 

EPUTC 

3= 

$E406 

SGETC 

= 

$E414 

SPUTC 

= 

$E4 1 6 

IOCBSZ 

S 

16 

IOC-BO 

= 

$00 

I0CB1 

= 

IOCBO+IOCBSZ 

I0CB2 

= 

IOCB 1+IGCBSZ 

I0CB3 

= 

I 0CB2+ IOCBSZ 

I0CB4 

ss 

IOCB 3+ IOCBSZ 

ICHID 

“ 

$0340 

ICDNO 

s 

ICHID+1 

ICCOM 


ICDNO+1 


ICSTA 

= 

ICCOM+1 

ICBAL 

= 

ICSTA+1 

ICBAH 

= 

ICBAL+1 

ICRLL 

= 

ICBAH+1 

ICRLH 


ICRLL+1 

ICBLL 


ICRLH+1 


IC-BLH 

3S 

ICBLL+1 

ICAUX1 

ss 

ICBLH+1 

ICAUX2 

= 

ICAUX 1+1 


DISK LOAD - I, BOOT = 0 

BOOTABLE = 1/ CARTRIDGE = 0 


COLLEEN VECTOR BASE ADDRESS 
"E: " PUT CHARACTER 
" GET CHARACTER 
“S: ’* PUT CHARACTER 

16 BYTES PER IOCB 
TEXT OUTPUT 
TEXT INPUT 

GRAPHICS INPUT Se- OUTPUT 
GET/PUT USER DEFINITIONS 
< UNUSED ) 

IOCB HANDLER I.D. 

DEVICE # 

COMMAND BYTE 
STATUS BYTE 
BUFFER ADDRESS (LO) 

BUFFER ADDRESS (HI) 

RECORD LENGTH (LO) 

RECORD LENGTH (HI) 

BUFFER LENGTH (LO) 

BUFFER LENGTH (HI) 

AUX 1 
AUX2 





OPEN 

CLOSE 

GETC 

PUTC 

OREAD 

OWRIT 

SPLIT 

NOCLR 


= $03 
= $0C 
= $07 
= $0B 

= $04 
= $08 
= $10 
= $20 


OPEN COMMAND 
CLOSE COMMAND 
GET CHARACTER COMMAND 
PUT CHARACTER COMMAND 


OPEN DIRECTION 
OPEN DIRECTION 
SPLIT SCREEN OPTION 
INHIBIT SCREEN CLEAR OPTION 



DEL 

= $7F 

EOF 

= $1 A 

EOL 

= $9B 

CLEAR 

= $7D 

BELL 

= $FD 

DELCH 

= $FE 


USER COMMAND DELETE CHARACTER (INTERNAL) 
INTERNAL END-GF-FILE CHARACTER (CTRL.-Z) 
ATASCII CARRIAGE RETURN 
MONITOR CLEAR SCREEN 
BELL CODE 

DELETE CHARACTER CODE 


; SIZING PARAMETERS 


LINSIZ ==80 # OF CHARACTERS PER SCREEN LINE (TEXT) 

ULINES =12 # OF LINES OF USER DEFINED FUNCTIONS 

VLINES =1 # OF LINES OF USER DEFINED VARIABLES 

USIZE = ULINES*LINSIZ 

VSIZE = VLINES*LINSIZ 

VLNGTH = S # OF BYTES PER VARIABLE DEFINITION (MUST BE 2 




# 

* 

m 


* 

# 


m 

m 




«_ ji ivo a l . 

ULINES 

VLINES 

USIZE 

VSIZE 

VLNGTH 


w v 


=12 # OF LINES OF USER DEFINED FUNCTIONS 

= 1 # OF LINES OF USER DEFINED VARIABLES 

= UL I NES-s-L I NS I Z 
* VLINES*LINSIZ 

=8 # OF BYTES PER VARIABLE DEFINITION (MUST BE >= NL 


DNSIZE 

NL 

RH 


= 15 
= 4 
= 1 


DEVICE/FILENAME MAXIMUM SIZE 

# OF DIGITS IN NUMERIC ASCII STRINGS (RECORDS) 

# OF BYTES IN RECORD HEADER 


INTERNAL OPTION VALUES 


ERSTOP 

ERWRAP 

ERREFL 

ERDIPR 


0 

1 

r> 


= 3 


'EDGRUL " 
'EDGRUL ' 
"EDGRUL ' 
"EDGRUL" 


STOP 

WRAP SCREEN 
REFLECT OFF WALL 
DISAPPEAR FROM SCREEN 


MDRAW 

MDEBUG 

MSPLIT 

MNORML 


0 

1 
2 
3 


"MODE" 

"MODE" 

"MODE" 

"MODE" 


DRAW 

DEBUG (ALL TEXT) 

SPLIT SCREEN WITH REGISTERS 

NORMAL — SPLIT SCREEN W/O REGISTERS 


SCRUNF 

SCSTEP 


0 

1 


"SPEED" 

"SPEED" 


RUN FULL SPEED 
SINGLE STEP 


COLLEEN DATA BASE 


DOSVEC 

APPMHI 

MEMLO 

MEMHI 

BREAK 

LMARGN 

R MAR GN 

COLCRS 

ROWCRS 

SPTCOL 

SPTROW 

PCOLRO 

PCOLR1 

PC0LR2 

PC0LR3 

COLORO 

CH 

CRSINH 

DSPFLG 

RTCLOK 

DM ACT 

GPRIOR 

PADDLO 

ST I CKO 

PTRIGO 

STRIGO 


$OGOA 

$OGOE 

$Q2E7 

$02E5 

$0011 

$0052 

$0053 

$0055 

$0054 

$0291 

$0290 

$C2CQ 

$02C 1 

$02C-2 

$02C3 

$02C4 

$02FC 

$02F0 

$02FE 

$0012 

$022F 

$026F 

$0270 

$0278 

$027C 

$0284 


RESTART VECTOR LOCATION 
APPLICATION HIGH RAM 
LOWEST AVAILABLE RAM POINTER 
HIGHEST AVAILABLE RAM POINTER 
BREAK KEY FLAG 
SCREEN LEFT MARGIN 


SCREEN RIGHT MARGIN 

SCREEN CURSOR COLUMN # LW0RD3 

SCREEN CURSOR ROW # 

SPLIT SCREEN TEXT COLUMN CW0RD1 
SPLIT SCREEN TEXT ROW 
PLAYER/MISSILE COLORS 














COLOR REGISTER O 

KEYBOARD MATRIX CODE INPUT 

CURSOR INHIBIT FLAG 

CONTROL BYTE DISPLAY FLAG 

REAL-TIME CLOCK (FRAME COUNTER) 60HZ 

DMA CONTROL BYTE 

PLAYER /PL AYF I ELD PRIORITY 

POT CONTROLLER 0 SENSE 

JOYSTICK 0 SENSE 

POT 0 TRIGGER SENSE 

JOYSTICK 0 TRIGGER SENSE 


HARDWARE EQUATES 


HPOSO 

= 

$D000 

PLAYER 0 HORIZONTAL 

POSITION 

HPOSMO 

— 

$D004 

MISSILE 0 HORIZONTAL 

POSITION 

HP 0SM1 

= 

$D005 

MISSILE 1 HORIZONTAL 

POSITION 

HP0SM2 

= 

$D 006 

MISSILE 2 HORIZONTAL 

POSITION 

HP0SM3 

= 

$D007 

MISSILE 3 HORIZONTAL 

POSITION 

SIZEM 

= 

$D00C 

MISSILE SIZE CONTROL 


GRAFM 

= 

$D01 1 

MISSILE ??????? 


GRACTL 

= 

$D01D 



PMBASE 

= 

$D407 

PLAYER /MISSILE BASE - 

ADDRESS REGISTER 










AUDC1 

PKVRND 

PACTL 


*D2 01 
*D20A 
SD302 




AUDIO #1 TYPE/VOLUME 
POKEY RANDOM NUMBER 
CASSETTE ON/OFF AMONG OTHER THINGS 


GRAMON » *01 
DMACON = *04 




'GRACTL ' MISSILE DMA ON 
'DMACT ' MISSILE DMA ON 




ERROR MESSAGE EQUATES 


-f 

ECSTKO 

ECNEST 

ECDEFR 

ECUOVF 

ECINCL 

ECOLL 

ECABRT 

ECIOER 

ECUNDV 

ECDNTL 

ECOPEN 

ECLOAD 


» 'S 
= 'N 
= 'R 
= 'F 
= 'P 
= 'O 
= 'A 
= ' I 
= 'U 
= 'D 
= 'I 
* 'L 


> 

> 


MISCELLANEOUS EQUATES 


BUCKET = *FFFFF 






-1 INDICATES BIT BUCKET 










STACK OVERFLOW 

NESTING ERROR — UNMATCHED RIGHT BRACKET 
DEFINE COMMAND USES RESERVED NAME 
USER DEFINITION REGION FULL 
INCOMPLETE (PARTIAL) LINE INPUT 

OVERLENGTH INPUT LINE — 

OPERATOR ABORT (BREAK KEY) 

SYSTEM I/O ERROR 

UNDEFINED VARIABLE NAME USED 

DEVICE NAME ERROR (TOO LONG) 

GET/PUT DEVICE OPEN ERROR 
LOAD ARGUMENT UNDEFINED 



























RAM DATA BASE FDR TURTLE GRAPHICS PROGRAM 


m 

m 

m 

# 


<• 


i CONTROL REGION 

i 

*=<►0080 

EXEC *=*+1 O « SCAN BUT DON ' T EXECUTE, ELSE EXECUTE 

KBIN *=*+1 0 = GET DATA FROM MEMORY, ELSE FROM KEYBOARD 

START OF 'DTAB ' REGION (USED FOR 'SXXXI' & 'DXXXI' ROUTINES) 


* 

# 



DTAB 

- * 


PTRSRH 

*=*+RH 



*=*+RH 


INPT 

*=*+3 

*=*+RH 


OUTPT 

*=*+3 

*=*+RH 

• 

FLINE 

*=*+3 

*=*+RH 


ACC 

*=*+NL 



*=*+RH 


NUMBER 

*=*+NL 

*=*+RH 


LEVEL 

*=#+NL 

*=*-*-RH 


CHAR 

*=*+1 



*=*+RH 


ERR 

*=#+1 


SSTACK 

*=*+2 


X JUMP 

*=*+3 


REDEF 

*=*+1 


TEMP 

*=#+3 

• 

COUNT 

*=*+1 


FTSTAT 

*=*+1 


SWTEMP 

•*=*+3 

(9 

XSTEMP 

*=*+1 


AUDTMP 

*=*+3 


INPUT LINE POINTER & OFFSET BYTE 
OUTPUT LINE POINTER & OFFSET BYTE 
USER ’COMMAND LINE POINTER & OFFSET BYTE 


ARITHMETIC ACCUMULATOR 


INTERNAL NUMBER REGISTER 


USER COMMAND NESTING LEVEL 


CURRENT COMMAND BYTE 

COMMAND ERROR CODE 
SOFTWARE STACK POINTER 
JUMP VECTOR 

USER COMMAND REDEFINED FLAG 

TEMPORARY WORK STORAGE FOR BOTTOM LEVEL CODE SEQUENCES 
WORK COUNTER 
'FTEST' TEMP 
'SCNWRT' TEMP 
'XSENSE' TEMP 
' XAUDIO ' TEMP 




TURTLE GRAPHICS REGION 








XCURS 

*=*+RH 

*=*+2 

YCURS 

#=*-1-2 

COLORN 

#=#+1 

MODE 

*=*+1 

EDGRUL 

#=*+1 

TRTREP 

#=#+1 

AUDIO 

*=*+1 

SPEED 

#=*+ 1 

NXTSCN 

*=#+1 

SCNMOD 

*=*+1 

ORIENT 


EEDGE 

#=*+1 

SEDGE 

#=#+1 

WEDGE 

*=*+ 1 

NEDGE 

*=#+1 

TRYPOS 

#=*+1 


UP ) 


CURRENT 

CURRENT 

CURRENT 

CURRENT 

CURRENT 


X CURSOR (-32768 TO 32767) 

Y CURSOR (-32768 TO 32767) 

CURRENT COLOR # (NEGATIVE - PEN 
OPERATING MODE (0-3) 

EDGE RULE FOR COLLISIONS (0-3) 
TURTLE REPRESENTATION (0-3) 
AUDIO SELECT (0-15) 

TURTLE SPEED SELECTION (0-7) 
NEXT SCREEN MODE (0-7) 

CURRENT SCREEN MODE (0-7) 

CURRENT TURTLE ORIENTATION (0-7) 

EAST EDGE COLLISION SENSE 

SOUTH EDGE COLLISION SENSE 

WEST EDGE COLLISION SENSE 

NORTH EDGE COLLISION SENSE 

TURTLE REPRESENTATION PLAYER POSITION 


; I/O DATA REGION 

PDSPTB *=*+2 POINTER TO CURRENT DISPLAY TABLE 
*=*+RH 

PROMPT *=*+1 USER PROMPT CHARACTER ('>' OR ' ') 


~ r ■ 





(Y) 










LININ 


*=*+RH 

*=*+INSIZ 


POEND * *-1 *** MUST BE < $0100 *** 

i 

} END OF 'DTAB' REGION 

i 

i TURTLE PLAYER BUFFER 

*=$580 ORGED FOR MISSILES WITH BASE @ $0400 


TPBUFF *=**128 
TVBUFF = TPBUFF+12 
TRBUFF = TVBUFF-7 


MISSILES BUFFER AREA 
START OF VISIBLE REGION 
INCLUDES UNDERFLOW REGION 


USER DEFINED VARIABLE REGION ( ' VDEF ' > 


*=$0500 


VDEF 


*=*+RH 

*=*+VSIZE 

*=*+1 TERMINATOR BYTE 


OPNBUF *=*+DNSIZE*i 


DEVICE NAME BUFFER FOR OPEN 


P5END 


= *- 1 


*** MUST BE < $0580 *** 


UNUSED PAGE < FREE FOR ANY USE) 


*=$0600 


* *~1 


P6END 


*** MUST BE < $0700 *** 






BOOT 

DLOAD 




*=$3000 


*=$0700 


*=$A800 


. END IF 

IF DLOAD- 1 

. END IF 

. END IF 

. IF BOOT-1 

. ENDIF 

CASSETTE BOOT FILE INFORMATION 










P3T =* 


BOOT 

DLOAD- 1 


BYTE 0 (DOESN'T MATTER). 

BYTE PND-PST+127/128 NUMBER OF RECORDS. 

WORD PST MEMORY ADDRESS TO START LOAD 

WORD PI NIT PROGRAM INIT VECTOR 


ENTRY POINT FOR MULTI-STAGE BOOT PROCESS 


CLC 

RTS 


SET PROPER “NO ERROR" STATUS 


; ENTRY point for first time initialization 




PINIT 


LDA 

STA 


#$3C 

PACTL 


TURN OFF CASSETTE 












. ENDIF 




LDA 

#PND 

STA 

MEMLO 

LDA 

#PND/256 

STA 

MEMLO+1 

LDA 

#RESTRT 

STA 

DOSVEC 

LDA 

#RESTRT/2D6 

STA 

DOSVEC +1 

. IF 

DLOAD- 1 

RTS 


. ENDIF 


. ENDIF 



TURTLE INITIALIZATION 


; POWER-UP ENTRY POINT 

BOOT-1 


INIT 


. IF 
RTS 
. ENDIF 


ESTABLISH UPPER MEMORY LIMIT 


ESTABLISH JUMP VECTOR 




























3 























RETURN TO POWER-UP ROUTINE. 




i WARMSTART ENTRY POINT (RESET KEY) 

RESTRT LDX #$FF SETUP HARDWARE STACK POINTER 

TXS 














INI010 STA 
I NX 
CPX 
BNE 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

INI 020 LDA 
STA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
TXA 
CLC 
ADC 
TAX 
CPX 
BNE 

LDA 

STA 

LDA 

STA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

LDA 


O, X 

#0 

INI010 

#$4C 

XJUMP+O 

#TWHAT 
PDSPTB 
#TWHAT/256 
PDSPTB+ 1 

#IOCBO 

#0 

ICRLL, X 
ICRLH, X 
ICBLL, X 
ICBLHi X 
#OPNBUF 
ICBAL, X 
#0PNBUF/256 
ICBAHi X 


#IGCBSZ 


#I0CB4 
INI 020 


#1 

COLORN 

#6 

NXTSCN 

SCNMOD 

#MNORML 

NODE 

ttERDIPR 

EDGRUL 

#3 

TRTREP 

#128 

#0 


IN 1022 STA 
DEX 
BNE 

LDX 

LDA 


TPBUFF-1 > X 
INI 022 

#0 


PAGE WRAP POINT? 

NO — CONTINUE. 

PUT " JMP " OPCODE IN JUMP VECTOR. 
SETUP MESSAGE TABLE POINTER. 


INI T IOCBS 0, 1, 2 & 3. 


BUMP TO NEXT IOCB. 

DONE? 

NO — DO NEXT IOCB. 

SET < NON-ZERO) OPTION DEFAULT VALUES. 
HARDWARE SCREEN MODE #7. 


EDGE RULE IS ’‘REFLECT" . 

TURTLE REPRESENTATION IS "ON". 


CLEAR TURTLE REPRESENTATION BUFFER (PLAYER). 


INITIALIZE PLAYER/MISSILE HARDWARE. 


IN 1027 STA HPOSO/ X SET ALL HORIZONTAL POSITIONS TO ZERO. 

DEX 

BNE IN I 027 


LDA 

#$00 

. . . PRIORITY . 

STA 

GPRIOR 

(GLOBAL RAM) 

LDA 

#TPBUFF- 

$180/256 . . . PLAYER BASE ADDRESS REGISTER 

STA 

PMBASE 


LDA 

#$00 

. . . PLAYER SIZE. 

STA 

SIZEM 


JSR 

MODSEL 

OPEN ALL IOCBS. 


STA 

PMBASE 


LDA 

#*00 

. . . PLAYER SIZE. 

STA 

SIZEM 


JSR 

MODSEL 

OPEN ALL IOCBS. 

JSR 

XHQME+2 

HOME CURSOR (TURTLE). 

JSR 

XNORTH+2 

FACE TURTLE NORTH. 

JSR 

XCLEAR+2 

CLEAR SCREEN. 

JSR 

PLCTRT 

PLACE TURTLE REPRESENTATION. 

LDA 

#1 

SETUP ALL RECORD LENGTHS. 

STA 

CHAR-1 


STA 

PROMPT-1 


STA 

ERR-1 


LDA 

#3 


STA 

INPT-1 


STA 

OUTPT-1 


STA 

FLINE-1 


LDA 

#4 


STA 

XCURS-1 


LDA 

#NL 


STA 

LEVEL-1 


STA 

NUMBER -1 


STA 

ACC-1 


LDA 

#INSIZ 


STA 

LININ-1 


LDA 

#VSI ZE 


STA 

VDEF-1 


LDA 

#3+RH*3 


STA 

PTRSRH 


LDX 

#ACC-DTAB 

ZERO 'ACC'. 

JSR 

SCLRI 


JSR 

CLRUDF 

CLEAR USER DEFINED COMMANDS 

JSR 

CLRVDF 

. . . AND VARIABLES. 

LDA 

#*FF 

RESET BREAK KEY FLAG. 

STA 

BREAK 


JSR 

CLRINL 

CLEAR INPUT LINE BUFFER. 

LDA 

#' 

(BLANK) 

STA 

CHAR 

BLANK TO 'CHAR ' ... 

JMP 

DIRECT 

... & 'ERR '. 







# 




THIS IS THE. MAIN-LINE LOOP — STACKS ARE INITIALIZED* DELETED 
USER COMMANDS ARE CLEARED* AND A SINGLE COMMAND IS EXECUTED. 


DIRECT IS THE EXTERNAL ENTRY POINT FOR ABORT AND FATAL ERROR CONDITIONS 


DIRECT LDX 
TXS 


#*FF 


ML=* 


ML05 











MLIO 




RE-INIT HARDWARE STACK POINTER 






STA 


ERR 


SAVE ‘’ERROR 1 ' CODE. 


LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 


MEMLO 


INIT SOFTWARE STACK POINTER. 






#USI ZE+1 

SSTACK 

MEMLO+1 

#USIZE+l/256 

SSTACK+1 


STARTS AFTER 'UDEF ' AREA. 









LDX 

JSR 


#LEVEL-DTAB 

SCLRI 


SET USER COMMAND LEVEL TO 0. 






LDX 

JSR 


#NUMBER-DTAB 

SCLRI 


SET 'NUMBER ' TO ZERO. 



LDA 

BEQ 


REDEF 


MLIO 


MAIN-LINE LOOP. 

USER COMMAND REDEFINED? 



NO. 








LDA 

STA 


#0 

REDEF 


YES 


RE-ALLOCATE MEMORY USED. 


— . — , ( — — 















FIND DELETED COMMANDS 

















i THIS IS THE COMMAND INITIATER — A COMMAND IS READ FROM THE KEYBOARD 
; AND STORED IN THE WORK BUFFER ('LININ') AS IT IS SYNTAX CHECKED. AND 
; THEN EXECUTED. SCREEN REPORTING IS HANDLED HERE ALSO. 


COMMND 


LDA 

STA 


# '> 

PROMPT 


SETUP INPUT PROMPT. 


JSR 

JSR 


XWHAT 

CLRINL 


PUT INFO TO SCREEN . . . 

. . . THEN CLEAR INPUT LINE BUFFER. 


LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

JSR 

INC 

LDA 

STA 

LDA 

STA 

LDA 

STA 

STA 

LDA 

STA 

LDA 

STA 

DEC 

LDA 

STA 

STA 

JSR 

JSR 


#*FF 

KBIN 

#0 

EXEC 

#LININ 

OUTPT 

#LININ/256 

OUTPT+1 

#0 

OUTPT +2 


RCMD 




SC-NEOL 

KBIN 

#LININ 

INPT 

#LININ/256 

INPT+1 

#0 

INPT -4-2 

DUTPT+2 

#BUCKET 

OUTPT 

#BUCKET/256 

GUTPT+1 

EXEC 

# ' 

PROMPT 

ERR 


XWHAT 

RCMD 


GET INPUT FROM KEYBOARD, 


SCAN WITHOUT EXECUTING 


Z< STORE TO LINE BUFFER. 


GET (SCAN) ONE COMMAND 


SCAN TO "EQL" IF INPUT FROM "E: 


(=0) GET INPUT FROM LINE BUFFER 






& STORE TO BIT BUCKET 




<=-!> ... WHILE EXECUTING INPUT LINE. 


(BLANK) — REMOVE PROMPT WHILE EXECUTING. 
ALSO REMOVE ERROR CODE FROM PRIOR LINE. 
SETUP REPORT TO SCREEN. 


EXECUTE ONE COMMAND. 

•*** CHANGE ABOVE TO JMP WHEN DEBUGGED *** 


RTS 


i SYNTAX SCANNER AND EXECUTER — IF 'EXEC' - O, THEN SCAN ONE COMMAND AND rfthbm 

• IF 'EXEC' <> O. THEN ONE COMMAND IS EXECUTED 'CMD' IS AN EXTERNAL 
j ENIR'r POINT i HA"! ASSUMES THAT A COMMAND IS IN 'CHAR' 

* COMMANDS ARE EITHER INTRINSIC (PART OF SYSTEM) OR USER DEFINED. 


RCMD 

JSR 

GETCH 

GET CHARACTER. 

; -a--** 

EXTERNAL 

ENTRY POINT 


CMD 

JSR 

ABRTCK 

CHECK FOR BREAK KEY. 


JSR 

PRICOM 

CHECK FOR PRIORITY COMMAND PENDING. 


JSR 

R UNOPT 

PROCESS RUN OPTIONS. 


LDA 

CHAR 

EXPLICIT USER COMMAND INVOCATION^ 


CMP 

#'* 



BEQ 

CMD015 

YES — IGNORE RESERVED WORD CHECK. 


JSR 

RESERV 

NO — CHECK FOR INTRINSIC COMMAND. 


BNE 

CMD020 

NOT INTRINSIC — SEE IF USER COMMAND. 

; INTRINSIC 

COMMAND 



LDA 

EXEC 

YES — SET CC FOR EXEC/SCAN OPTION 


JSR 

X JUMP 

EXECUTE X-ROUTINE. 


RTS 


*** CHANGE ABOVE TO JMP WHEN DEBUGGED 

i NOT INTRINSIC COMMAND 


CMD015 

JSR 

GETCH 

GET USER COMMAND NAME (IGNORE •*>. 

CMD020 

LDA 

EXEC 

EXECUTE? 


BNE 

CMD023 

YES. 

CMD021 

RTS 


NO. 

CMD023 

JSR 

UFIND 

USER DEFINED COMMAND? 


BNE 

CMD021 

NO — IGNORE (SLOW NOP). 


USER DEFINED COMMAND 


CMD032 


LDX 

JSR 

TSX 

CPX 

BCS 

JSR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

JSR 


#INPT-DTAB 

SPSHI 


#$80 

CMD032 

PUSHHS 

FLINE 

INPT 

FLINE+1 

INPT4-1 

#2 

INPT+2 

#LEVEL-DTAB 

SINCI 


YES — SAVE INPUT SCAN POINTER. 

PUSH POINTER TO STACK. 

SEE IF STACK FULL ENOUGH TO WORRY ABOUT 
NO. 


YES — PUSH HARDWARE STACK TO SOFTWARE STACK. 
ESTABLISH USER COMMAND AS NEW INPUT SCAN LINE 


SKIP OVER "X=" 


INCREMENT USER LEVEL #. 


EXECUTE USER COMMAND 
JSR RCWD 


PROCESS USER DEFT NIT I ON 


Moore Rusineis Fowl Inc 


JSR 


SXNCI 









i 

i 


RESERV 


CHECK CHARACTER FOR SYSTEM 


INTRINSIC 



CALLING SEQUENCE: 

'CHAR' = CHARACTER IN QUESTION 
'CTAB ' = COMMAND JUMP TABLE 








I 

i 





i 

t 


JSR RESERV 

BNE - NOT RESERVED INTRINSIC - - 
' X JUMP ' = JUMP TO X-ROUTINE IF FOUND 


RESERV 


LDA 

SEC 

SBC 

CMP 

BCC 


RES005 


LDA 

RTS 


CHAR GET COMMAND NAME. 

(CLEAR BORROW) 

#*20 NORMALIZE BLANK TO 00 - 

#*60 IN INTRINSIC SPACE? 

RES010 YES — COULD BE INTRINSIC. 


#*FF NO — NOT RESERVED WORD. 







RES010 ASL 
TAX 
LDA 
BEQ 

STA 

LDA 

STA 

LDA 

RTS 


A 

CTAB+1* X 
RES005 

X JUMP +2 — 

CTAB+Oi X 
X JUMP +1 
#0 






X2 FOR ACCESS TO ADDRESS TABLE. 

GET MSB OF ADDRESS. 

NO ENTRY — NOT RESERVED. 


GET LSB OF ADDRESS 
SET CC FOR EXIT. 





















; COMMAND TABLE 
* 

; EACH ENTRY (ORDERED IN ATASC 1 1 SEQUENCE) IS THE ADDRESS 
* OF THE COMMAND PROCESSOR ROUTINE OR ZERO. 

i 

CTAB=* 



. WORD 

XNOP 

# 

. WORD 

XSTOP 

. WORD 

0 


. WORD 

XVAR 

• 

. WORD 

X JOYS 

. WORD 

XPOT 


. WORD 

XCOLOR 

# 

. WORD 

0 

. WORD 

XLPARN 


. WORD 

XNERR 

• 

. WORD 

0 

. WORD 

XPLUS 


. WORD 

0 


. WORD 

XMINUS 

. WORD 

0 


. WORD 

0 

* 

. WORD 

XI TER 

. WORD 

X ITER 


. WORD 

XI TER 

m 

. WORD 

XI TER 

. WORD 

XI TER 

. WORD 

XI TER 

+ 

. WORD 

XI TER 

. WORD 

XI TER 


. WORD 

X ITER 

m 

. WORD 

XI TER 

. WORD 

0 


. WORD 

X CMP AS 

* 

. WORD 

0 

. WORD 

XDEFIN 


. WORD 

0 

» 

. WORD 

XQUEST 


. WORD 

X ZERO 

» 

. WORD 

XA 

. WORD 

XBEEP 


. WORD 

XCLEAR 

i 

. WORD 

XDOWN 

. WORD 

XEDGE 


. WORD 

XFRWRD 


. WORD 

0 


. WORD 

XHOME 


. WORD 

0 


. WORD 

0 

t 

. WORD 

0 


. WORD 

XROTL 


. WORD 

0 


. WORD 

X NORTH 


. WORD 

0 


. WORD 

XPEN 

• 

. WORD 

0 


. WORD 

XROTR 


. WORD 

XSENSE 


WORD 

WORD 

WORD 

WORD 


X I F 
XUP 
0 

XWAIT 


BLANK = NOP 

! = STOP ITERATION (ONE LEVEL) 

II 

* = ITERATE BY VARIABLE 

* = JOYSTICK TEST 

*/. = READ POT CONTROLLER TO ACCUMULATOR 

& = COLOR REGISTER UPDATE 
/ 

( = NESTING BRACKET 
) = ILLEGAL WITHOUT < 

* = RESERVED FOR COMMAND DELIMITER 
+ = INCREMENT ACCUMULATOR 

- = DECREMENT ACCUMULATOR 




ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 

ITERATE 


DIRECTION SENSE 


= = DEFINE USER COMMAND OR VARIABLE 


? = RANDOM TEST 


= SET ACC TO ZERO 






= ITERATE BY ACCUMULATOR 
= BEEP 

= CLEAR SCREEN 
= PEN DOWN 
= EDGE TEST 
= TURTLE FORWARD 

= TURTLE HOME 










= ROTATE TURTLE LEFT 
= FACE TURTLE NORTH 

* PEN COLOR SELECT 

= ROTATE TURTLE RIGHT 
= TURTLE COLOR SENSE 

* ACCUMULATOR TEST 
= PEN UP 

= WAIT FOR NEXT CLOCK TICK 













. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


0 

0 

XPUSHA 

0 

XNERR 

XBUMP 

XNOP 


Y 

Z 

C * NESTING BRACKET WITH ACC PUSH 
\ 

3 * ILLEGAL WITHOUT C 
* * BUMP ITERATION COUNT 
<UNDERSCORE> = NOP 


























. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 




XAUDIO 

0 

XCLRV 

XDSPMD 

XERULE 

O 






XGETFL 

0 

O 

0 

0 

XLOAD 

XMODE 

0 

0 

XPUTFL 

0 

XRUN 

XSPEED 

XTREP 

O 






A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 


* SELECT AUDIO OUTPUT 

* CLEAR USER VARIABLES 
- SELECT DISPLAY MODE 
■ SELECT EDGE RULE 


= GET USER DEFS 


LOAD CANNED PROGRAMS 
SELECT OPERATING MODE 



= PUT USER DEFS 

= LOAD & RUN CANNED PROGRAMS 
= SELECT SPEED 

= SELECT TURTLE REPRESENTATION 












, UFIND — FIND USER COMMAND DEFINITION IF PRESENT 

i CALLING SEQUENCE: 

# 

i 'CHAR ' * COMMAND NAME 

'UDEF * AREA STARTS AT BOTTOM OF AVAILABLE MEMORY 


JSR 

BNE 


UFIND 
NOT FOUND 


'FL INE ' - POINTER TO COMMAND DEFINITION. IF FOUND 
REGISTER X IS CLOBBERED. Y * 0 

JSR SETUDF SETUP POINTER TO * UDEF ' AREA 

LDA #LINSI Z 

STA FLINE+2 






















i *** EXTERNAL ENTRY POINT *** 


XFIND 


LDA 

FNDOIO RTS 


FND020 CMP 
BEQ 




#0 

(FLINE) , Y 
#*FF 

FND020 

#*FF 


CHAR 

FNDOIO 

#FLINE-DTAB 

FLINE+2 

PADDY 

XFIND 


SEARCH 1ST CHAR OF EACH LINE. 
GET CHARACTER. 

END OF TABLE INDICATOR? 

NO — CHECK FOR MATCH. 

YES — SET CC FOR EXIT. 

RETURN WITH CC SET. 


IS THIS THE ONE WE'RE LOOKING FOR? 
YES — RETURN WITH CC SET. 










GET INCREMENT TO NEXT DEFINITION. 


NO — TRY AGAIN. 
GET INCREMENT T( 
INCREMENT 'FLINE' 
























VFIND 


FIND USER DEFINED VARIABLE, IF PRESENT 


CALLING SEQUENCE: 










'CHAR' = NAME OF VARIABLE 
' VDEF ' AREA HAS VARIABLE VAl 


JSR 

BNE 


VFIND 
NOT FOUND 






















'FLINE' = POINTER TO VARIABLE DEFINTION, IF FOUND 
REGISTER X IS CLOBBERED, Y = 0 


VFIND 


#VDEF 

FLINE 

#VDEF/256 

FLINE+1 

#VLNGTH 

FLINE+2 

XFIND 


SETUP POINTER TO DEFINITIONS. 






LENGTH OF EACH DEFINITION. 

GO TO COMMON CODE ('UFIND' & 'VFIND'). 


































osmesi forms, 






RUNOPT — PROCESS RUN-TIME OPTIONS 


• 

RUNOPT LDA 
BEQ 

EXEC 

RUN090 

CHECK FOR EXECUTE 
SCAN — NO OPTION 

• 

LDA 

MODE 

CHECK MODE. 


CMP 

#MDRAW 

FULL GRAPHICS? 

• 

BEQ 

RUN010 

YES — NO TEXT TO 


CMP 

#MNORML 

NORMAL MODE? 

• 

BEQ 

RUN010 

YES — NO TEXT TO 


LDY 

#TVARS— TWHAT 

NO — PUT VAR I ABU 


JSR 

SCNWRT 



PROCESS SPEED OPTION 


RUN010 LDA 

SPEED 

BEG 

RUN050 

CMP 

#SCSTEP 

BEQ 

RUN030 

SEC 


SBC 

#1 

JSR 

CLKSYN 

JMP 

RUN050 

; SINGLE STEP — WAIT 

RUN030 LDA 

#$FF 

CMP 

CH 

BNE 

RUN033 

JSR 

ABRTCK 

JMP 

RUN030 

RUN033 STA 

CH 

; SET AUDIO IF 

SELECTED 

R UNO 50 LDA 

AUDIO 

BEQ 

RUN090 


CHECK OPTION. 

O = FULL SPEED AHEAD. 


SINGLE STEP? 
YES. 


(CLEAR BORROW) 

NO — SYNCHRONIZE SPEED TO CLOCK. 






WAIT FOR ANY KEY STROKE 


KEYSTROKE? 


YES. 












BREAK KEY? 

NO — WAIT FOR ONE OR THE OTHER 


* 

* 



AUDIO SELECTED? 


TSX 

STX 

ASL 

TAX 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

AND 

CL C 

ADC 

STA 

LDA 

STA 


AUDTMP +2 
A 



(FOR SOUND GENERATION) 


— « — ' * — ■ — « 


GET L. S. B. OF ADDRESS 


AUDTAB, X 
AUDTMP 

AUDTAB + 1,X GET M. S. B. OF ADDRESS. 

AUDTMP +1 
#0 


( AUDTMP ) , Y 

#$FF 


GET VALUE AT THE ADDRESS 


#$00 

AUDF1 

#$A0+3 

AUDC1 


FREQUENCY SELECT. 


RUN090 RTS 


AUDTAB = *-2 






RUN090 RTS 







AUDTAB « 













*— 2 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



COLORS 

ROWCRS 
SSTACK+1 
PADDLO 
PADDLO+1 
CHAR 
TEMP 
TEMP+1 
COUNT 
AUDTMP+2 
XCURS+1 
YCURS+1 
SSTACK 
































1 

* CLRINL — CLEAR INPUT LINE UTILITY 

i 

; CALLING SEQUENCE: 


1 

f 

i 

1 

JSR 

'LININ' 

CLRINL 
IS SET 

TO BLANKS WITH AN EOL AT THE END 


i 

CLRINL 

LDX 

LDA 

#INSI Z 
#' 

CLEAR INPUT LINE. 
(BLANK) 




























CIL010 STA 
DEX 
BNE 


LDA 

STA 

RTS 


LININ-1, X 




CILOIO 










#EOL 

LININ+INSIZ-1 


TERMINATE LINE FOR PRINTING 







SCNEOL — SCAN TO EOL CHARACTER IF INPUT FROM "E: " DEVICE 


CALLING SEQUENCE: 


— t-— — . ■■■ y r ' 



SCNEOL 




SCEOIO 


LDX 

LDA 

CNF 

BNE 

JSR 

CMP 

BNE 


MODE 
TINXi X 


INPUT FROM 


iic:- » o 



— — 






#EOL 
SCEOIO 


TO EOL CHARACTER 


SCE090 RTS 


































i START OF LEVEL 2 PROCEDURES 


COMMAND PROCESSORS <X -ROUTINES) *** 


USER DEFINED 

COMMAND 

FIN JSR 

GETCH 

CMP 

# '# 

BEQ 

XDFIOO 

CMP 

« '« 

BEQ 

XDF005 

JSR 

RESERV 

BNE 

XDFOIO 

LDA 

EXEC 

BEQ 

XDF015 

LDA 

#EC DEFR 

JMP 

DIRECT 


**<NAMEXCOMMAND> 

GET COMMAND/VARIABLE NAME 

IS IT A USER VARIABLE DEFINITION? 

YES 

NO — IS IT THE RESERVED WORD OVERRIDE CHAR'? 
YES 

IS IT RESERVED (INTRINSIC)? 

NO. 


NON-EXECUTE — DEFER ERROR REPORTING 


YES — FATAL ERROR 
USER COMMAND DEFINITION — =<NAMEXCOMMAND> 


XDF005 

JSR 

GETCH 

GET 

COMMAND NAME (IGNORE *). 

XDFOIO 

LDA 

EXEC 

EXECUTE MODE? 


BNE 

XDF020 

YES. 


XDF015 

JMP 

RCMD 

NO - 

- SCAN DEFINITION & RETURN. 

XDF020 

JSR 

UFIND 

USER 

COMMAND ALREADY DEFINED? 


BNE 

XDF025 

NO. 



LDA 

#DEL 

YES 

— MARK IT AS DELETED NOW. 


STA 

( FL I NE ) * Y 




STA 

REDEF 

SET 

FLAG FOR SPACE RECLAMATION LATER 

XDF025 

LDA 

CHAR 

SAVE 

'CHAR' (COMMAND NAME). 


PHA 





LDA 

#EOL 

NOW 

SCAN FOR BLANK ENTRY FOR NEW DEF 


STA 

CHAR 




JSR 

UFIND 




BEQ 

XDF030 

GOOD 

— FOUND A SPOT. 


XDF030 


LDA 

#ECUOVF 


JMP 

DIRECT 

NO ROOM FOR DEFINITION — ABORT 

JSR 

GETCH 

GET 1ST CHARACTER OF DEFINITION 

CMP 

#' 

IS IT BLANK (MEANS DELETE)? 

BEQ 

XDF050 

YES — NO MORE TO DO. 

LDY 

#0 

NO — ENTER NEW DEFINITION. 

PLA 


GET AND STORE COMMAND NAME. 

STA 

(FLINE), Y 


INY 



LDA 

#' = 

STORE 

STA 

(FLINE), Y 


INY 



LDA 

CHAR 

STORE 1ST BYTE OF DEFINITION. 

STA 

(FLINE), Y 





Moo re Business Forms, In 


# 


J SR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

INC 

JSR 

LDY 

LDA 

STA 


SPSHI 

FLINE 

OUTPT 

FLINE+i 

OUTPT+i 

#3 

QUTPT+2 

EXEC 

CMD 

OUTPT+2 

#EOL 


PUSH TO STACK. 


ROUTE OUTPUT TO 'FLINE ' < 'UDEF ' AREA) 




SKIP OVER ‘ , X=X" ALREADY STORED. 

<=0> SET TO SCAN MODE <NQ EXECUTE) 
COPY DEFINTION TO BUFFER W/O EXECUTE. 


NOW ADD EOL AT END OF DEFINITION. 




EXEC 
#QUTPT-DTAB 
SPULI 




(=-1) SET BACK TO EXECUTE MODE. 
RESTORE OUTPUT POINTER. 


-*** DON'T CHANGE ABOVE JSR TO JMP *** 








I 

1 

» 


VARIABLE ASSIGNMENT TO ACC CONTENTS 


A 

XDFIOO 

JSR 

GETCH 

w 


LDA 

EXEC 



BEQ 

XDF190 

• 


JSR 

VFIND 



BEG 

XDF135 

• 


LDA 

CHAR 



PHA 




LDA 

# ' 

w 


STA 

CHAR 



JSR 

VFIND 

• 


BEG 

XDF130 



LDA 

#ECUOVF 

% 


JMP 

DIRECT 


XDF130 

PLA 


% 


STA 

CHAR 



LDY 

#0 




(FLINE), Y 


#' = 

< FLINE ) , Y 


XDF135 LDX 
LDY 


XDF140 


ACC, X 
(FLINE), Y 


ACC-1 


XDF190 RTS 






GET VARIABLE NAME 
EXECUTE MODE? 

NO. 


ALREADY DEFINED? 

YES — ASSIGN NEW VALUE. 


NO — LOOK FOR FREE SPOT 
SAVE 'CHAR'. 

SEARCH FOR BLANK. 



















FIND EMPTY SPOT? 
YES. 





NO — ABORT. 

RESTORE 'CHAR'. 

SAVE IT AS VARIABLE NAME. 











SAVE 


NOW SAVE CURRENT 'ACC' CONTENT AS VALUE. 




GET DIGIT. 

SAVE IN DEFINITION. 



DONE YET? 
NO. 









CLEAR USER 
XCLRV BEG 


JSR 


DEFINED VARIABLE REGION 
XCV090 
CLRVDF 


CTRL-C 


NON-EXECUTE. 

CLEAR VARIABLE REGION 


XCV090 RTS 













T <THENXELSE> 


i COMMAND PROCESSOR FOR ACCUMULATOR NON-ZERO TEST 

$ 

> SKIP' & TEST 7 ARE EXTERNAL ENTRY POINTS USED BY THE 
' EDGE TEST AND RANDOM TEST ROUTINES ALSO. 

9 

X IF BNE XIFOIO EXECUTE. 


*** EXTERNAL ENTRY POINT 


i 


SKIP 

JSR 

RCMD 


JMP 

RCMD 

XIFOIO LDX 

#ACC-DTAB 


JSR 

TSTNUM 

9 

9 

**■* EXTERNAL ENTRY POINT 

i 

TEST 

BNE 

XIF020 

i 

EXECUTE 

ELSE 

9 

INC 

EXEC 


JSR 

RCMD 


DEC 

EXEC 


JMP 

RCMD 


f EXECUTE THEN 

i 

XIF020 JSR RCMD 

INC EXEC 

JSR RCMD 

DEC EXEC 

RTS 


SCAN COMMAND (THEN). 

SCAN COMMAND (ELSE) & RETURN. 

SEE IF 'ACC' » ZERO. 

NO — EXECUTE 11 THEN" COMMAND. 


< -O ) SCAN 1ST COMMAND (THEN). 

<=~1) EXECUTE 2ND COMMAND (ELSE) 
. . . & RETURN. 

EXECUTE 1ST COMMAND (THEN). 

< =0 ) SCAN 2ND COMMAND (ELSE). 

<=~1) RESTORE EXECUTE MODE. 


; RANDOM TEST COMMAND PROCESSOR — ?<THENXELSE> 


j 


XQUEST 

BNE 

XQU010 

EXECUTE MODE. 



JMP 

SKIP 

SCAN MODE — SCAN BOTH THEN & ELSE 

COMMANDS. 

XQU010 

LDA 

PKYRND 

GET RANDOM NUMBER FROM POKEY CHIP. 



AND 

#1 

MASK DOWN TO BINARY DECISION (SET 

CC). 


JMP 

TEST 

NOW PROCESS THEN OR ELSE BASED ON 

RESULT. 


; COMMAND PROCESSOR FOR NESTING 


XLPOl 0 

JSR 

CMD 

XLPARN 

JSR 

GETCH 


CMP 

#' ) 


BNE 

XLPOl 0 


JSR 

RUNOPT 

XNOP 

RTS 



OPERATOR — (CCOMMAND>. . . <COMMAND>> 
PROCESS COMMAND. 

GET NEXT COMMAND (OR CLOSING PAREN). 
CLOSING PAREN? 

NO — PROCESS COMMAND. 

TREAT » >" AS A COMMAND. 

YES — NESTING COMPLETE. 


i COMMAND PROCESSOR FOR PUSH/POP OPERATORS — C <XOMMAND>. . . <XOMMAND>3 


XPUSHA BEG 

XPAOIO 

LDX 

#ACC-DTAB 

JSR 

SPSHI 


NON-EXECUTE. 

EXECUTE — PUSH ACCUMULATOR. 


XPAOIO JSR 

GETCH 

CMP 

# ' 3 

BEG 

XPA020 


GET NEXT COMMAND (OR MATCHING BRACKET). 
MATCHING BRACKET? 

YES. 


JSR CMD 

JMP XPAOIO 


NO — PROCESS COMMAND. 



XPA020 JSR 

RUNOPT 

TREAT 11 3 " AS COMMAND. 

LDA 

EXEC 


BEG 

XPA090 

NON-EXECUTE. 


LDX #ACC-DTAB EXECUTE — PULL ACCUMULATOR. 

JSR SPULI 


XPA090 RTS 


*** DON'T CHANGE ABOVE JSR TO JMP !!! *** 


XNERR JSR 


SCNEOL 


SCAN TO EOL IF INPUT FROM *'E: 


LDA #ECNEST NESTING ERROR — UNMATCHED RIGHT BRACKET. 

JMP DIRECT — *** — 




t ACCUMULATOR ITERATE COMMAND PROCESSOR — A<COMMAND> 


XA 

BNE 

XA010 

EXECUTE 


JMP 

RCMD 

SCAN COMMAND fc RETURN 

XA010 

LDX 

#NUMBER-DT AB 

SAVE CURRENT 'NUMBER' VALUE 


JSR 

SPSHI 



LDX 

#ACC-DTAB 

MOVE 'ACC' TO 'NUMBER' 


LDY 

#NUMBER-DTAB 



JSR 

SMOVI 



JSR 

GETCH 

GET NEXT COMMAND 


JMP 

ITER8 

GO TO COMMON CODE TO ITERATE 


i NUMBER ITERATE COMMAND PROCESSOR — <NUMBERXCOMMAND> 


XI TER 


LDX 

JSR 

#NUMBER-DTAB 

SPSHI 

SAVE CURRENT 'NUMBER ' VALUE. 

JSR 

NUMB 

GET NEW VALUE TO 'NUMBER' (SCANS TO NEXT 

LDA 

EXEC 

EXECUTE MODE? 

BNE 

ITERS 

YES — GO TO COMMON CODE FOR ITERATION. 

JSR 

CMD 

NO — SKIP NEXT COMMAND . . . 

JMP 

XIT070 

... & RESTORE 'NUMBER'. 


*** EXTERNAL ENTRY POINT *** 


ITER8 LDA CHAR 

CMP 

BNE XIT050 


SEE IF ASSIGNMENT OPERATOR. 
NO — ITERATION. 


LDX #NUMBER-DTAB YES — MOVE ITERATION COUNT TO ACC . . . 

LDY #ACC-DTAB 

JSR SMOVI 

JMP XIT060 ... Z< DON'T ITERATE. 


XIT050 LDX 
JSR 
BEQ 


#NUMBER-DTAB COMMON CODE — TEST NUMBER. 
TSTNUM 

X I T 060 = ZERO, DONE. 


LDX #INPT~DTAB SAVE INPUT POINTER INFORMATION. 

JSR SPSHI 

LDA CHAR SAVE 'CHAFLV- 

PHA 

JSR CMD EXECUTE COMMAND. 


PLA 

STA 

LDX 

JSR 

LDX 

JSR 

JMP 

XIT060 INC 
JSR 
DEC 


CHAR 

#INPT-DTAB 

SPULI 


#NUMBER-DT AB 

SDCRI 

ITER8 

EXEC 

CMD 

EXEC 


RESTORE 'CHAR'. 

RESTORE INPUT POINTER. 




DECREMENT 'NUMBER ' . 

CHECK FOR ANOTHER ITERATION. 

(=0) ALL DONE — SCAN OVER COMMAND 
(=-1 ) RESTORE EXECUTE MODE. 









XIT060 


XIT070 


JSR 

JMP 

INC 

JSR 

DEC 

LDX 

JSR 

RTS 


•w.'vww u i nu 

SDCRI 

ITER8 


EXEC 

CND 

EXEC 


#NUMBER-DTAB 

SPULI 


ia i__ i it-iN i iMunutn . 

CHECK FOR ANOTHER ITERATION 

<=0> ALL DONE — SCAN OVER COMMAND 

<=-l) RESTORE EXECUTE MODE. 










RESTORE ORIGINAL 'NUMBER ' VALUE 
. . . <& CLEAN STACK). 

*** DON'T CHANGE ABOVE JSR TO JMP 


• * • 


I I I 

• * * 















i STOP ITERATION (INNER LEVEL) COMMAND PROCESSOR — ! 









XSTOP 

BEQ 

XST090 

• 


LDX 

#NUMBER 



JSR 

SCLRI 

• 

XST090 

RTS 



NON-EXECUTE. 









CLEAR 'NUMBER 7 TO STOP ITERATION. 














i COMMAND PROCESSOR FOR VARIABLE ITERATE — #<VARXCOMMAND> 


XVAR 




XVA020 


XVA030 


XVA040 


JSR 

LDA 

BNE 

JMP 


GETCH 

EXEC 

XVAOIO 

RCMD 


LDX 

#NUMBER~ 

JSR 

SPSHI 

JSR 

VFIND 

BEQ 

XVA020 

LDX 

#NUMBER- 

JSR 

SCLRI 

LDA 

#ECUNDV 

STA 

ERR 

BNE 

XVA040 

LDY 

#2 

LDX 

#0 

LDA 

(FLINE) i 

STA 

NUMBER* X 

INX 


INY 


CPX 

NUMBER- 1 

BNE 

XVA030 

JSR 

GETCH 

JMP 

ITER8 


GET VARIABLE NAME. 
EXECUTE MODE? 

YES. 










NO — SCAN PAST COMMAND & RETURN 
SAVE CURRENT VALUE OF 'NUMBER'. 


FIND VARIABLE. 
FOUND. 


NOT FOUND USE ZERO 

. . . 8c FLAG SOFT ERROR. 
(BRA) 




MOVE VARIABLE VALUE TO 'NUMBER' 






DONE? 

NO. 



GET COMMAND TO ITERATE. 
GO TO COMMON CODE FOR I 












* 

* 

«• 

* 


* 















i PLUS 
XPLUS 


XPL090 


XMINUS 


XMI090 


XZERO 


XZE090 


AND MINUS ARITHMETIC COMMAND PROCESSORS 


BEQ 

LDX 

JSR 

RTS 

XPL090 

#ACC-DTAB 

SINCI 

NON-EXECUTE. 
INCREMENT 'ACC' 




BEQ 

XMI090 

NON-EXECUTE. 

LDX 

#ACC-DTAB 

DECREMENT 'ACC' 

JSR 

SDCRI 


RTS 






BEQ 

XZE090 

NON-EXECUTE. 

LDX 

#ACC-DTAB 

ZERO 'ACC'. 

JSR 

SCLRI 


RTS 






+ & ~ 










Moor* ftimn«s Form*, In 


XWHAT — INFORMATION DUMP COMMAND PROCESSOR — W 


XWHAT 


BEQ 

XWH090 

LDA 

CMP 

BEQ 

MODE 

#MDRAW 

XWH090 

CMP 

BNE 

#MNORML 

XWH005 

LDA 

JSR 

JMP 

#EOL 

COUT 

XWH090 

LDA 

JSR 

#CLEAR 

COUT 

LDY 

#TWHAT-1 


NON-EXECUTE. 

DO NOTHING IF FULL GRAPHICS. 


NORMAL MODE? 
NO. 


LDX 

LDA 

CMP 

BNE 


LDY 

XWHOIO J SR 


LDA 

CMP 

BNE 


m 


XWH025 LDY 


XWH027 LDA 
I NY 
CMP 
BEQ 


YES — ECHO EOL TO SCREEN (TEXT AREA) 
... & DO NOTHING ELSE. 

CLEAR SCREEN BEFORE OUTPUTTING. 


MESSAGE TABLE INDEX 


MODE 
TTDXi X 
#2 

XWHOIO 


SPLIT SCREEN? 

NO — FULL DUMP IS FINE. 


#TSWHAT-TWHAT 

SCNWRT 


MODE 

#MDEBUG 

XWH030 


YES — SMALL DUMP IS IN ORDER. 
OUTPUT DATA TO SCREEN. 

PUT USER FUNCTIONS OUT IF APPROP. 
NO. 


SET CURSOR. 


#VLINES*2+7 
ROWCRS 
#0 

C0LCR5+1 

LMARGN 

COLCRS 

SETUDF SET POINTER TO USER DEFINITIONS. 










#0 

(FLINE), Y 








GET DATA. 


#*FF 

XWH030 




END OF TABLE? 

YES — DONE WITH USER DEFS. 




~ .. , 1 . . . . .. — 




PH A 
JSR 

Dl A 

COUT 

i L. r"l 

CMP 

#EOL 

BNE 

XWH027 

LDY 

#LINSI 

LDX 

#FLINE- 

JSR 

PADDY 

JMP 

XWH025 

LDY 

#TPRMT- 

JSR 

SCNWRT 

LDA 

PROMPT 

CMP 

BEQ 

#■' 

XWH090 

UDA 

#DELCH 

JSR 

COUT 

RTS 





NO — OUTPUT MORE DATA. 


END OF DEFINITION? 

NO — KEEP PRINTING? 










YES — BUMP TO START OF NEXT ONE. 




— 


GET CURSOR BACK TO PROMPT. 




SEE IF PROMPT IS BLANK . . . 
. . . WHICH MEANS EXECUTING. 
YES 










NO END OF EXECUTION 

. . . FORCE CURSOR TO SHOW. 

















» MESSAGE TABLE FOR 'WHAT ' COMMAND 

i 

i FIVE BYTES PER ENTRY: 

i 

i O - ENTRY TYPE < $FF = END OF TABLE) 

i 1 - CURSOR COLUMN (RELATIVE TO LEFT MARGIN) 

/ 2 - CURSOR ROW 

i 3 - TEXT POINTER LSD 

; 4 - TEXT POINTER MSD 


TWHAT 


TSWHAT 


TVARS 


. BYTE 
. WORD 
. BYTE 
. WORD 

. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 

. BYTE 
. WORD 
. BYTE 
. WORD 

. BYTE 
. WORD 
BYTE 
. WORD 
BYTE 
WORD 
BYTE 


0/ 2» 4 
LININ-1 
O, 0, 6 
VDEF-1 

O, 2, O 
MACC 
O, 12, O 
MNUM 
0, 25, O 
MLEV 
O, 2, 1 
MCHR 

O, 25, 1 
MERR 
0, 31, 1 
ERR-1 

0 , 6 , 0 
ACC-1 
0, 19, O 
NUMBER- 1 
O, 31, O 
LEVEL-1 
0, 7, 1 




. WORD 

CHAR-1 

m 


. BYTE 

*FF 

a 

TPRMT 

. BYTE 

0, 0, 2 

w 


. WORD 

PROMPT-1 

m 


. BYTE 

$FF 



#=*4-30 


• 




• 

MACC 

. BYTE 

4, "ACC-" 


MNUM 

. BYTE 

7, "NUMBER^ 

# 

MLEV 

. BYTE 

6, "LEVEL=" 

• 

MCHR 

. BYTE 

5, "CHAR=" 


MERR 

. BYTE 

6, "ERRORS” 


SCANNED INPUT LINE (DEBUG MODE STARTS HERE) 
USER VARIABLES 

"ACC=" (SPLIT SCREEN START HERE) 

"NUMBER=” 


”LEVEL='' 

"CHAR=" 

"ERRQR=" 
ERROR CODE 

ACC VALUE 


NUMBER VALUE 
LEVEL VALUE 
CHAR VALUE 

END OF TABLE 

SCREEN ENTRY AREA PROMPT. 

END OF TABLE 
SPARES FOR PATCHING. 




























v DDrrn 


r>nrrn .t* r-ik i-rrt m 


r* nwtwt a h m 


; X SPEED — SPEED CONTROL COMMAND PROCESSOR — GTRL-S <NUMBER> 

i 

XSPEED 


JSR 

LDA 

BEQ 

LDA 

AND 

STA 


XSP090 RTS 


GETCH 

EXEC 

XSP090 

CHAR 

#$07 

SPEED 


GET CHARACTER THAT FOLLOWS. 
SEE IF SCAN OR EXECUTE 
NON-EXECUTE. 


EXECUTE — CHANGE SPEED. 


EDGE RULE SELECT COMMAND PROCESSOR 


CTRL-E <NUMBER> 


XER090 


JSR 

LDA 

BEQ 

GETCH 

EXEC 

XER090 


GET 

SEE 

NON- 

CHARACTER THAT FOLLOWS. 
IF SCAN OR EXECUTE. 
-EXECUTE. 

LDA 

AND 

STA 

CHAR 

#$03 

EDGRUL 


EXECUTE — CHANGE EDGE RULE. 

JSR 

BEQ 

CTEST 

XER090 


SEE 

YES 

IF TURTLE IN SCREEN LIMITS 
— NO PROBLEM. 

JSR 

XHOME+2 


NO - 

— HOME AS A PRECAUTION. 

RTS 






; MODE SELECT COMMAND PROCESSOR — CTRL-M <NUMBER> 


XMODE 


XMD090 RTS 


JSR 

GETCH 

LDA 

EXEC 

BEQ 

XMD090 

LDA 

CHAR 

AND 

#$03 

STA 

MODE 

JSR 

XHOME+2 

LDA 

NXTSCN 

STA 

SCNMOD 

JSR 

MODSEL 

RTS 


GET CHARACTER THAT FOLLOWS. 
SEE IF SCAN OR EXECUTE. 
NON-EXECUTE. 

EXECUTE — CHANGE MODE. 






ENSURE THAT CURSOR IS IN SCREEN LIMITS. 
BRING FORWARD NEXT MODE TO CURRENT. 


SCREEN MODE SELECT COMMAND PROCESSOR — CTRL~D <NUMBER> 


JSR 

LDA 

GETCH 

EXEC 

GET CHARACTER THAT FOLLOWS. 
SEE IF SCAN OR EXECUTE 

BEQ 

XDM090 

NON-EXECUTE. 

r-nr-ni tfr- nl T k 1 1” It ivifirSC 

LDA 

CHAR 

EXECUTE - bE i NEW 1 lUUfc.. 

AND 

#$07 

0-7 MAPS TO 1—0 LATER. 

STA 

NXTSCN 






X DM090 RTS 


; XTREP — TURTLE REPRESENTAT ION COMMAND PROCESSOR — CTRL-T <NUMBER> 


XTREP 

JSR 

GETCH 


LDA 

EXEC 


BEQ 

XTR090 


LDA 

CHAR 


AND 

#$03 


STA 

TRTREP 


JSR 

TRONOF 

XTR090 

RTS 



GET CHARACTER THAT FOLLOWS. 
SEE IF SCAN OR EXECUTE. 
NON-EXECUTE. 


EXECUTE — CHANGE TURTLE REPRESENTATION. 


SETUP HARDWARE FOR NEW OPTION. 





> X AUDIO — AUDIO SELECT COMMAND PROCESSOR — CTRL-A <NUMBER> 


X AUDIO 


XAU090 


JSR 

GETCH 

LDA 

EXEC 

BEQ 

XAU090 

LDA 

CHAR 

AND 

#$0F 

STA 

AUDIO 

STA 

AUDF1 

RTS 



GET CHARACTER THAT FOLLOWS. 
SEE IF SCAN OR EXECUTE. 
NON-EXECUTE. 




EXECUTE. 


* 



7 









, ORIENTATION COMMANDS FOR TURTLE 



; FACE 

NORTH 

COMMAND PROCESSOR - 

— N 

) 

XNORTH 

BEQ 

XR0090 

NON-EXECUTE. 


LDA 

BEQ 

#0 

XR0020 

SET INDEX TO NORTH (ZERO). 
(BRA). 

; ROTATE RIGHT COMMAND PROCESSOR 

— R 

XROTR 

BEQ 

XR0090 

NON-EXECUTE. 


INC 

BNE 

ORIENT 

XR0010 

EXECUTE — BUMP INDEX. 
(BRA) 

; ROTATE LEFT 

COMMAND PROCESSOR 

— L 

1 

XROTL 

BEQ 

XR0090 

NON-EXECUTE. 


DEC 

ORIENT 

EXECUTE — DECREMENT INDEX. 

XR0010 

LDA 

AND 

ORIENT 

#$07 

MASK RESULT TO 3 BITS. 

XR0020 

STA 

JSR 

ORIENT 

PLCTRT 

RE-ORIENT TURTLE REPRESENTATION. 

XR0090 

RTS 

- - 



; HOME COMMAND PROCESSOR — H 


<9 

XHOME 

BEQ 

XHM010 



LDA 

#0 



STA 

XCURS 

• 


STA 

XCURS+1 



STA 

YCURS 



STA 

YCURS+1 

m 


JSR 

PLCTRT 



JSR 

PLTPNT 

m 

XHM010 

RTS 


+ 





NON-EXECUTE. 
HOME = 0, 0 


PLACE TURTLE REPRESENTATION. 
LEAVE TRACK ALSO. 


; CLEAR SCREEN COMMAND PROCESSOR — C 


XCLEAR 


BEQ 

XCL090 

LDA 

I0CB2+ICHID 

BMI 

XCL090 

LDA 

#CLEAR 

JSR 

TOUT 


NON-EXECUTE. 

"S: ” OPEN? 

NO. 

YES — SEND CLEAR SCREEN. 








> TURTLE SENSING COMMANDS 


; EDGE SENSING COMMAND PROCESSOR — ECTHENXELSE> 


XEDGE 


XEGOl 0 

i 


JSR 

AND 

JMP 


XEGOIO 

SKIP 


FTEST 

#♦01 

TEST 


EXECUTE 

NON-EXECUTE. 

i TEST FOR MODE WHERE ONE COLOR IS TO BE 
TREATED THE SAME AS THE EDGE. 

TEST PIXEL IN FRONT OF TURTLE. 

RESULT OF OPERATION <> 0 IF BEYOND EDGE. 


i COLOR SENSING COMMAND PROCESSOR — S (COLOR GOES TO 'ACC') 


NON-EXECUTE. 




XSN020 


BEQ 

XSN090 

LDA 

I0CB2+ICHID 

BMI 

XSN005 

JSR 

FTEST 

BEQ 

XSN010 

LDA 

#0 

BEQ 

XSN02G 

LDX 

#XCURS-DTAB 

JSR 

SPSHI 

JSR 

CFRWRD 

JSR 

SETCUR 

LDX 

. ICO 

#ACC-DTAB 
cri o t 


JSR 

TIN 

AND 

STA 

#♦07 

XSTEMP 

LDX 

#XCURS-DTAB 

JSR 

SPULI 

LDA 

XSTEMP 

;ternal 

ENTRY POINT • 

CLC 

ADC 

#'0 

LDX 

ACC-1 

STA 

ACC-1 j X 

RTS 



SEE IF IN A GRAPHICS MODE. 

NO — I0CB2 IS CLOSED. 

SEE IF POINT IN FRONT OF TURTLE IS IN SCREEN LIMITS. 
YES — COLOR IS SENSE-ABLE. 

NO — RETURN "BACKGROUND" VALUE. 

(BRA). 

SAVE X & Y CURSOR VALUES. 


MOVE CURSOR FORWARD. 


CLEAR 'ACC' 


GET VALUE OF COLOR UNDER TURTLE. 
SAVE TEMPORARILY. 

RESTORE CURSOR X & Y VALUES. 
RESTORE COLOR SENSE VALUE. 

CONVERT TO ASCII . . . 

... & STORE IN LSD OF 'ACC'. 




PEN CONTROL COMMAND PROCESSOR — P ('ACC' GOES TO COLOR) 






XPEN 


XPN010 


BEQ 

XPN090 


•ACC— DTA 

JSR 

SATBI 

AND 

• *7F 

CMP 

•CLEAR 

BNE 

XPN010 

LDA 

•CLEAR+1 

EOR 

COLORN 

AND 

•*7F 

EOR 

COLORN 


COLORN 

BMI 

XPN090 

JSR 

TSTPLT 

RTS 



NON-EXECUTE. 

CONVERT ACC' TO BINARY. 

CLEAR SCREEN CODE? 

NO — O K 

VES — DON'T ALLOW 
MERGE UP /DOWN FLAG 

PEN UP. 

PLOT POINT IF TURTLE IN LIMITS 








; PEN UP COMMAND PROCESSOR 

i 

XUP 


X UP 090 


BEG 

XUP090 

LDA 

••80 

ORA 

COLORN 

STA 

COLORN 

RTS 









U 


NON-EXECUTE. 


SIGN BIT IS FLAG FOR PEN UP 







i PEN DOWN COMMAND PROCESSOR — D 

i 

XDOWN BEQ XDN09O NON-EXECUTE. 





JSR 


XDN090 RTS 


••7F 
COLOR N 


COLORN 

TSTPLT 


SIGN BIT IS FLAG FOR UP /DOWN. 




PLOT POINT IF TURTLE IN LIMITS. 










TURTLE 


XBEEP BEQ 

XBP090 

LDA 

••50 

STA 

AUDF1 

LDA 

#*A0+8 

STA 

AUDC1 



LDX 

#128 

LDY 

#0 



FREQUENCY 


????HZ. 


TYPE * ????/ VOLUME * 1/2 











LOOP CONTROL 

TNNFR I OOP ss PSA 









UL/n 

STA 

rr vnv-ro 

AUDCl 

LDX 

LDY 

#12« 

#0 

DEY 

BNE 

XBP010 

DEX 

BNE 

XBP010 

STX 

AUDCl 

RTS 



ire — r r r r/ vut. unc i / t£. 


DEIAY OUTFR LOOP CONTROL 

INNER LOOP = 256. 


TURN OFF TONE (=0) 


JOYSTICK TEST COMMAND PROCESSOR — $<LETTER><THEN><ELSE> 


X JOYS 


XJY010 


JSR 

LDA 

BNE 

JMP 

LDA 

CMP 

BCS 

SEC 

SBC 

AND 

TAX 


GETCH 

EXEC 

XJY010 

SKIP 

CHAR 
# 'Q 

XJY030 


#1 

#$03 


CHAR 


GET CHARACTER THAT FOLLOWS. 
EXECUTE. 


SCAN MODE — SCAN BOTH THEN S< ELSE COMMANDS. 

GET JOYSTICK SELECTION. 

'Q TO 'X ARE TRIGGERS. 

TRIGGER TEST. 

JOYSTICK TEST — NORMALIZE SELECT CHARACTER 
USE LOWER BITS TO SELECT BIT MASK. 


USE UPPER BITS TO SELECT JOYSTICK #. 
(CLEAR BORROW) 






XJY030 


LDA 

EOR 

AND 

JMP 

SBC 

AND 

TAX 

LDA 

EOR 

AND 

JMP 


STICKO, Y 
#$FF 
BMASK, X 

TEST 

# 'Q 
#$0F 

PTRIGO, X 
#$FF 
#$01 
TEST 




GET JOYSTICK DATA. 

DATA IS INVERTED — CORRECT IT. 
MASK DOWN TO SINGLE BIT. 




NORMALIZE SELECT CHARACTER. 




DATA IS INVERTED — CORRECT IT. 




BMASK 


.BYTE $01, $08, $02, $04 


F, R, B, L 


READ POT CONTROLLER TO ACCUMULATOR — ’/.<NUMBER> 

XPOT JSR GETCH GET CHARACTER THAT FOLLOWS. 


JSR 

LDA 

BEG 


GETCH 

EXEC 

XPT090 


NON-EXECUTE. 







• 

AND 

TAX 

#407 

• 

LDA 

SEC 

#228 


SBC 

PADDLO* X 

• 1 

LDX 

#ACC-DTAB 


JSR 

BUT A I 

• 

XPT090 RTS 





RESULT - 228 - RADDLE READING 
(CLEAR BORROW) 


CONVERT RESULT TO ASCII NUMBER 
• • . *< STORE IN 'ACC 




• COLOR REGISTER UPDATE COMMAND PROCESSOR — &<NUMBER> 

GET CHARACTER THAT FOLLOWS. 
NON-EXECUTE. 




JSR 

GETCH 

LDA 

EXEC 

BEQ 

XC0090 

LDX 

#ACC-DTAB 

JSR 

PHA 

SATBI 

LDA 

CHAR 

AND 

#407 












CMP 

BCC 

LDA 

JMP 

XCOOIO TAX 
PLA 
ST A 

XC0090 RTS 


#4+1 

XCOOIO 

# 'X 

DIRECT 


COLORO, X 


CONVERT 'ACC * TO BINARY 
SAVE RESULT. 

CALCULATE INDEX TO COLOR REGISTER 

ONLY 0-4 VALID. 

0. K. 

N. G. 








GET COLOR /LUM VALUE . . . 
... & STORE IN DATABASE. 


, WAIT FOR NEXT CLOCK TICK COMMAND PROCESSOR 


J 

XWAIT BEQ 


LDA 

JSR 

XWA090 RTS 


XWA090 

#1 

CLKSYN 


; SENSE TURTLE ORIENTATION COMMAND 


i 


BEQ 

XCM090 

LDX 

#ACC-DTAB 

JSR 

SCLRI 

LDA 

ORIENT 

JMP 

XSN020 

RTS 




NON-EXECUTE. 
SYNC TO CLOCK 


NON-EXECUTE. 


SET "ACC ' TO ZERO. 



tiidti c rnoLiADn mMMAKin Dunrcc«5no — — c 




XCM090 RTS 




i TURTLE FORWARD COMMAND PROCESSOR — F 







I HANDLES EDGE RULES FOR STOP AT EDGE. REBOUND AT EDGE. WRAP 
; AT EDGE AND DISAPPEAR AT EDGE. 

; ALSO HANDLES PEN UP OR DOWN. 










BEG 

XFR017 

NON-EXECUTE. 


JSR 

BNE 

FTEST 

XFR020 

TEST FOR EDGE IN FRONT OF TURTLE 
PAST EDGE. 

JSR 

CFRWRD 

MOVE CURSOR 

(TURTLE) FORWARD. 

JSR 

PLCTRT 

PLACE TURTLE 

REPRESENTATION. 

JSR 

PLTPNT 

LEAVE TURTLE 

TRACK (IF VALID). 














XFR017 RTS 



XFR020 LDA 

EDGRUL 

OFF EDGE — WHAT IS CURRENT EDGE ! 


CMP 

#ERSTOP 

STOP? 


BEQ 

XFR015 

YES — LEAVE TRACK WITHOUT MOVING 


CMP 

#ERDIPR 

XFR030 

D TRAPP FAR ncc f ncco 

• 

BEG 

YES — GO OFF EDGE. 


CMP 

#ERWRAP 

WRAP SCREEN? 


BEQ 

XFR040 

YES — DO CALCULATION. 




REFLECT OFF WALL 








LDA 

ORA 

BEQ 


WEDGE 

EEDGE. 

XFR025 


NO — MUST BE REFLECT (BY DEFAULT) 
E/W WALL HIT? 

NO — CHECK FOR N/S. 















#8 

ORIENT 

ORIENT 


YES — EAST OR WEST WALL COLLISION 
(CLEAR BORROW). 

'ORIENT' = B - 'ORIENT' 








XFR025 


LDA 

ORA 

BEG 


XFR029 JMP 


NEDGE 

SEDGE 

XFR029 

#12 

ORIENT 

#*07 

ORIENT 

XFR010 


N/S WALL HIT? 
NO. 


YES — NORTH OR SOUTH WALL COLLISION. 
(CLEAR BORROW). 

'ORIENT' = (12 - 'ORIENT') MOD 8. 






FINISH PROCESSING. 




NOTE: ABOVE CODE WILL LOOP INDEFINITELY IF CURSOR GETS OUTSIDE 
; OF EDGE OF SCREEN. 


DISAPPEAR (WANDER) 








XFR030 JSR 
JSR 
RTS 


CFRWRD 

PLCTRT 


MOVE TURTLE BUT LEAVE NO TRACKS. 
REMOVE REP AS TURTLE GOES OFF SCREEN. 


WRAP SCREEN 



















NO WRAP — INCREMENT NORMALLY. 



E/W WALL WRAP ^ 
NO. 









(NON-SYMMETRICAL SCREEN). 





INCREMENT NORMALLY. 







CTRL--G 


<DEVICE SPEC> 


II 


, GET USER DEFINITIONS FROM DEVICE 


XGETFL JSR DNAME 

LDA EXEC 

BEQ XGF090 


SCAN TO END OF DEVICE SPECIFICATION. 
NON-EXECUTE. 


LDA #OREAD OPEN DEVICE FOR INPUT. 

JSR DOPEN 


JSR 

CLRUDF 

CLEAR 

CURRENT 

USER DEFINITION AREA 

JSR 

SETUDF 

SETUP 

POINTER 

TO USER DEFS. 


XGFOIO 

LDY 

#0 



XGF015 

JSR 

DIN 

READ A 

DATA BYTE 


CMP 

#EOF 

END OF 

FILE? 


BEQ 

XGF030 

YES. 



STA (FLINE > > Y NO — STORE DATA. 

I NY 

CMP #EOL END OF A DEFINITION? 

BNE XGF015 NO. 


LDY #LINSIZ YES — BUMP ADDRESS TO START OF NEXT. 

LDX #FLINE-DTAB 

JSR PADDY 

JMP XGFOIO 


XGF030 JSR DCLOSE 


CLOSE OPEN DEVICE. 


XGF090 RTS 









* PUT USER DEFINITIONS TO DEVICE — CTRL-P " <DEVICE SPEC> " 

SCAN TO END OF DEVICE SPECIFICATION. 
NON-EXECUTE. 


XPUTFL JSR 
LDA 
BEQ 


DNAME 

EXEC 

XPF090 





LDA 

JSR 


JSR 


XPFOl 0 


LDY 

LDA 


XPFOl 5 








XPF020 


XPF030 


XPF090 


#QWR I T 
DOPEN 


OPEN DEVICE FOR OUTPUT. 






SETUDF 










SETUP POINTER TO USER DEFINITION AREA 






#0 

< FLINE ) * V 


GET A DATA BYTE. 


CMP 

#*FF 

BEQ 

XPF030 

CMP 

#EOL 

BEQ 

XPF020 

LDA 

(FLINE) j Y 

INY 


PHA 


JSR 

DOUT 

PLA 


JMP 

XPFOl 5 

LDY 

#LINSIZ 

LDX 

#FLINE-DTAB 

JSR 

PADDY 

JMP 

XPFOl 0 

LDA 

#EOF 

JSR 

DOUT 

JSR 

DCLOSE 

RTS 



END OF TABLE? 
YES — - DONE. 












END OF A DEFINITION? 
YES. 




GET DEFINITION DATA. 












OUTPUT TO DEVICE. 

" T " - T- 1 ~ - — 


BUMP POINTER TO NEXT DEFINITION START. 






PUT END OF FILE AT END 








CLOSE THE OPEN FILE. 




























































i LOAD PREDEFINED COMMANDS 
* 

XLOAD JSR GETCH 




JSR 

L.DA 

BEQ 


EXEC 

XL0090 


FROM ROM COMMAND — CTRL-L. <CHAR> 
GET CHARACTER THAT FOLLOWS. 
NON-EXECUTE. 


; *** EXTERNAL ENTRY POINT *** 
XL0AD2 JSR CLRUDF 


XLOOIO 


LDA 

CMP 

BNE 


LODTAB, X 
#$FF 

XL0030 


CLEAR CURRENT USER DEFINITION AREA. 

SET POINTERS TO USER AREA. 

INITIALIZE NAME TABLE INDEX. 

SCAN TABLE FOR MATCH. 

END OF TABLE? 

NO. 



















LDA 

JMP 


XL0030 CMP 
BEQ 


#ECLOAD 

DIRECT 

CHAR 

XL0050 


YES — ARGUMENT ERROR. 


MATCH FOUND? 
YES. 










INX 

INX 

INX 

INX 

JMP 




XLOOIO 


NO — GO TO NEXT ENTRY. 












X LOO 50 LDA 
STA 
LDA 
STA 
LDA 
STA 


LDY 

XL0055 LDA 
STA 


LODTAB+2, X 
TEMP 

LODTAB+3, X 
TEMP+1 
LODTAB+1 > X 
TEMP+2 


#0 

#0 

FLINE+2 


TO CANNED DEFINITIONS. 










GET TOP LEVEL COMMAND NAME. 






GET SET TO MOVE DEFINITIONS. 
START OF NEW DEFINITION. 





FLINE+2 
(FLINE), Y 


DESTINATION INDEX. 











FLINE+2 

COUNT 

#EOL 

XLG060 


SAVE DESTINATION INDEX. 
SOURCE INDEX. 

END OF A SINGLE DEFINITION? 
NO. 


XL0090 RTS 


#LINSI Z 

#FLINE-DTAB 

PADDY 

COUNT 

XL0055 


YES 


BUMP ADDRESS TO START OF NEXT. 


SOURCE INDEX. 



































LOAD 





XRUN 


JSR 

LDA 



GETCH 

EXEC 

XRN090 


- CTRL-R <CHARACTER> 


GET CHARACTER THAT FOLLOWS. 







*** EXTERNAL ENTRY POINT **■* 


NON-EXECUTE. 





















XRUN2 


JSR 

LDA 

STA 

JSR 


XL0AD2 


LOAD CANNED DATA. 










XRN090 RTS 


















NUMB 


CALLING SEQUENCE 


'CHAR 


NUMB 

'NUMBER' = VALUE OF NUMERIC FIELD (IF INPUT TOO LONG* USES LAST N DIGITS) 
'CHAR' = CHARACTER AFTER END OF NUMERIC FIELD 




NUMB 


NUM020 




LDX 

JSR 

LDX 

LDA 

STA 

JSR 

JSR 

BCS 

RTS 


#NUMBER-DTAB 

SCLRI 

ACC-1 

CHAR 

NUMBER-1, X 
GETCH 
DECDIG 
NUM024 


ZERO NUMBER FIRST. 


NUM024 LDX 


NUM030 




LDA 

STA 

INX 

CPX 

BNE 

BEQ 


#0 

NUMBER+1 , X 
NUMBER, X 


GET RECORD LENGTH. 

STORE FIRST DIGIT IN LSD. 

GET NEXT CHARACTER. 
DECIMAL DIGIT? 

YES. 

NO — ALL DONE. 

SHIFT DIGITS ONE TO LEFT 
SHIFT LEFT ONE DIGIT. 


NUMBER- 1 
NUM030 

NUM020 





(INTENTIONALLY MOVES ONE TOO MANY). 


ADD NEXT DIGIT. 







i CFRWRD — MOVE CURSOR (TURTLE) FORWARD 










i CALLING SEQUENCE: 


'ORIENT' = ORIENTATION VALUE (0-7) 
' XCURS ' = CURSOR X POSITION 
' YCURS ' = CURSOR Y POSITION 








JSR 


CFRWRD 


* XCURS ' = ' XCURS 7 + 'DXTAB ' < 'ORIENT') 






'YCURS' = 'YCURS' + ' DYT AB ' < ' OR I ENT ' ) 




CFRWRD LDY 
LDX 


LDA 

JSR 


ORIENT 
#XCURS—DTAB 
DXTAB, Y 
FORWRD 


GET ORIENTATION. 

X POSITION FIRST. 
GET INCREMENT. 
ADJUST POSITION. 






LDX 


# YCURS— DTAB 


LDA DYTAB, Y 

i *** EXTERNAL ENTRY POINT *** 


THEN Y POSITION. 
GET INCREMENT. 




















FORWRD BEQ 


CFR090 


NO CHANGE. 




BPL 


CFR060 




JMP 


DDCRI 


— 4 - 

-1 S* RETURN. 














CFR060 JMP 


DINCI 


+1 S< RETURN. 


CFR090 RTS 


* x & Y INCREMENT TABLES (INDEXED BY 'ORIENT') 




DYTAB . BYTE $FF, $FF 


(NOTE: THIS TABLE OVERLAPS 'DXTAB ' ! ! ! ) 


DXTAB .BYTE $00. $01 , $01 , $01 , $00, $FF, $FF, $FF 





































' FTEST — TEST FOR EDGE IN FRONT OF TURTLE 
i CALLING SEQUENCE; 


' XCURS * %>. ' YCURS ' = CURSOR VALUES 


i 

• 

i 

JSR 

BEQ 

ELSE 

FTEST 
IN BOUNDS 
OUT OF BOUNDS 

(A » $00) 
(A ■ $01 ) 

I 

# 

SEE 

ALSO 'EDGTST' 


FTEST 

LDX 

JSR 

# XCURS— DTAB 
SPSHI 

SAVE X ?< Y CURSOR. 


JSR 

CFRWRD 

MOVE TURTLE FORWARD. 


JSR 

STA 

CTEST 

FTSTAT 

TEST FOR EDGE. 

SAVE EDGE TEST STATUS. 


LDX 

JSR 

#XCURS-DTAB 

SPULI 

RESTORE X & Y CURSOR. 


LDA 

RTS 

FTSTAT 

RESTORE STATUS & CC. 
RETURN WITH CC SET. 

CTEST 

— TEST FOR EDGE UNDER CURSOR (TURTLE) 


CALLING SEQUENCE; 

(SEE 'FTEST ' AND 'EDGTST ' ) 


CTEST JSR EDGTST PERFORM EDGE BOUNDS TEST. 


LDA 

ORA 

ORA 

ORA 

RTS 


NEDGE 

SEDGE 

WEDGE 

EEDGE 


SEE IF ALL IN BOUNDS. 


RETURN WITH A CC SET. 




JSR 


EDGTST 


EDGTST 


LDX 

LDY 

JSR 

LSR 


#YCURS-DTAB 

#YMIN~MMTAB 

CHKRNG 



EDGTST — TEST FOR CURSOR ON EDGE OR OUT OF BOUNDS 
CALLING SEQUENCE; 

'XCURS' & 'YCURS' « TURTLE LOCATION 


'NEDGE', 'SEDGE', 'WEDGE' & 'EEDGE' SET TO REPRESENT 
STATUS AT THE NORTH, SOUTH, WEST AND EAST WALLS. 

$00 = CURSOR IN BOUNDS 
$01 = CURSOR OUT OF BOUNDS 





Moore Dullness Forms. Inc 




LDY 

#YMAX— MMTAB 

JSR 

CHKRNG 

AND 

#01 

STA 

SEDGE 

LDX 

#XCURS~DTAB 

LDY 

#XMIN— MMTAB 

USR 

CHKRNG 

LSR 

A 

STA 

WEDGE 

LDY 

#XMAX— MMTAB 

JSR 

CHKRNG 

AND 

#01 

STA 

EEDGE 

RTS 



CHECK SOUTH WALL. 


CHECK WEST WALL. 


CHECK EAST WALL. 


; CHKRNG RANGE CHECK A SIGNED CURSOR COORDINATE WITH A MI N/MAX VALUE. 


} CALLING SEQUENCE: 


i 

> 

> 

i 

i 

i 

i 

i 

i 


X = 7 DTAG ' INDEX TO CURSOR 

Y = 'MMTAB ' INDEX TO TABLE ENTRY (FURTHER INDEXED BY 'SCNMOD' INTERNALLY) 


JSR 


CHKRNG 




A = $00 IF 'DTAE'(X) = 'MMTAB '(Y, 'SCNMOD') 
$01 IF "DTAB MX) > 'MMTAB '<Y, 'SCNMOD') 
$02 IF 'DTAB'(X) < 'MMTAB '(Y, 'SCNMOD') 

r' r*“ T T f » n r* r“* i r~ n **r* »nr- a t «%- *-— » * > • a . - . 


CC SET TO REFLECT REGISTER A VALUE 
Y REGISTER IS CLOBBERED. 


VALUE 


ASL 

TVA 

SCNMOD 

ADC 

SCNMOD 

TAY 


LSR 

SCNMOD 

LDA 

DTAB + 1, X 

CMP 

MMTAB+1, Y 

BEQ 

CKR030 

BPL 

CKR050 

BMI 

CKR035 


X2 FOR INDEX. 

MODIFY TABLE INDEX. 


MODIFY TABLE INDEX. 
D 

T\ orfsTriFir /rnkiunnr 


RESTORE 'SCNMOD ' . 


COMPARE CURSOR WITH TABLE ENTRY. 
MSBS ARE EQUAL. 





CURSOR > CHECK VALUE 


— 




CURSOR < CHECK VALUE. 


CKR030 LDA 
SBC 
BEQ 


DTAB, X CHECK LSBS. 

MMTAB, Y 


... — T 


CKR040 


CURSOR = CHECK VALUE. 






BCS 


CKR050 


CURSOR > CHECK VALUE. 


CKR035 

LDA 

#$02 

CURSOR 

< CHECK 

VALUE. 


RTS 





CKR040 

LDA 

#$00 

CURSOR 

= CHECK 

VALUE. 


RTS 





CKR050 

LDA 

#$01 

CURSOR 

> CHECK 

VALUE. 


RTS 


RETURN 

WITH CC 

& A SET. 



; MIN/MAX TABLES FOR CURSOR (ORDERED BY HARDWARE SCREEN MODES 1-11) 
; SEE ALSO 'SETCUR' & 'PLCTRT' FOR RELATED TABLES 


MMTAB=* 





MIN/MAX TABLES FOR CURSOR (ORDERED BY HARDWARE SCREEN MODES 
SEE ALSO SETCUR' & 'PLCTRT' FOR RELATED TABLES 





MMTAB=* 




XMIN 


XMAX 


YMIN 


YMAX 



WORD 


10, -TO, -20, -40, -40, -80, -80, 


160, -40, -40, 


-40 


. WORD 9, 9, 19, 39, 39, 79, 79, 159, 39, 39, 39 



WORD 


WORD 















> 


> 











■ MODSEL — OPERATING MODE I/O SELECTION 

i CALLING SEQUENCE 

MODE * OPERATING MODE <0-3> 

' SCNMOD m SCREEN MODE SELECTION 

i JSR MODSEL 

» 

SETS UP IOCBS O, 1 & 2 FOR MODE 


0 

MODSEL JSR 

TROFF 


LDX 

MODE 


LDY 

TINX, X 

0 

JSR 

SETSCN 


LDX 

MODE 

0 

LDY 

TOTX, X 


JSR 

SETSCN 

0 

LDX 

MODE 


LDY 

TTDX , X 


JSR 

SETSCN 

0 

JSR 

TRONOF 

0 

JSR 

TSTPLT 


RTS 



DISABLE TURTLE REP DURING CHANGES. 
OPEN THE COMMAND INPUT DEVICE. 


OPEN THE TEXT OUTPUT DEVICE. 

OPEN THE TURTLE GRAPHICS INPUT/OUTPUT DEVICE 

SETUP HARDWARE FOR TURTLE REP (ON OR OFF). 

LEAVE A TURTLE TRACE IF TURTLE IN SCREEN LIMITS. 


; SETSCN — SETUP THE IOCB FOR ONE DEVICE 

CLOSE THE IOCB, PUT IN NEW INFO, OPEN THE IOCB 8< SETUP FOR READ/WRITE 

i CALLING SEQUENCE: 


Y = INDEX TO IOCB SETUP TABLES 
JSR SETSCN 

X IS CLOBBERED 


m 

SETSCN 

STY 

TYA 

TEMP 



AND 

#$7F 

m 


TAY 

LDX 

TIO, Y 



LDA 

#CLOSE 

0 


STA 

ICCQM, X 



JSR 

CIO 

m 

i RE- 

-OPEN 

DEVICE IF ! 


SAVE INDEX. 

REMOVE "CLOSE ONLY" INDICATOR 
(SIGN BIT). 

GET IOCB INDEX. 


CLOSE THAT IOCB. 


LDY 

BMI 


TEMP 

STS090 

TDEV, Y 
DPNBUF 
# 

GPNBUF+1 

#EOL 

QPNBUF+2 

#OPEN 

ICCOM, X 
TAXI, Y 


DEVICE NOT TO BE OPENED. 
SETUP DEVICE NAME. 

SET 'OPNBUF ' TO "X: <EOL>" 












SETUP AUX 1 . 


LDA 

STA 

LDA 

BTA 

LDA 

STA 

LDA 

STA 

LDA 

BEG 


# ' : 

OPNBUF+1 

#EOL 

QPNBUF+2 

#OPFN 

ICCOM, X 
TAXI, Y 
ICAUX1, X 
TAX2, Y 
STS020 


SET 'OPNBUF ' TO "X:<EOL>" 



SETUP AUX 1 . 

SETUP AUX2. 

FORCE SCREEN MODE TO ZERO. 


CLC SCREEN MODE - INTERNAL MODE + CONSTANT 

ADC SCNMDD 



STS020 STA 


ICAUX2, X 


LDA 

SSTACK 

LET SCREEN HANDLER KNOW CURRENT UPPER 

STA 

APPMHI 

. . . BOUND 

LDA 

SSTACK+1 


CLC 



ADC 

#1 

LEAVE ONE PAGE MARGIN 

STA 

APPMHI +1 



JSR C I 0 


OPEN THE I OCB. 


LDY 

LDA 

STA 


STS090 

RTS 

TDEV 

. BYTE 

TAXI 

. BYTE 

TAX2 

. BYTE 

TOP 

. BYTE 

TIO 

. BYTE 


TEMP 
TOP, Y 

SETUP READ/WRITE OPERATION. 

ICCOM, X 



'E, 'S, 'S, 'K, 'E 




OWR IT, OWR I T+OREAD+NOCLR , OWR IT+OREAD+SPLIT+NOCLR, OREAD, OREAD 


0 , 1 , 1 , 0,0 

PUTC, PUTC, PUTC, GETC, GETC 
IOCBO, I0CB2, I0CB2, I0CB1, I0CB1 






; SIGN BIT SET INDICATES IOCB TO BE CLOSED & NOT RE-OPENED 


TINX 

. BYTE 

3, 4, 3, 3 

COMMAND 

INPUT IOCB (IOCB 1 ) 'CHIN' 

TOTX 

. BYTE 

$80, 0, 0, 0 

COMMAND 

OUTPUT IOCB (IOCB 0) 'COUT' 

TTDX 

. BYTE 

1 , $8 1,2,2 

TURTLE 

I/O IOCB (IOCB 2) 'TIN' & 'TOUT' 


; INDEX TO ABOVE: O = DRAW MODE 
i 1 = DEBUG MODE 

; 2 = SPLIT SCREEN DEBUG MODE 

, 3 = NORMAL MODE (SPLIT SCREEN) 







WHITE DATA TO SCREEN FROM TABLE ENTRIES 


CALLING SEQUENCE: 


'LMARGN' = LEFT MARGIN OFFSET 
7 PDSPTB ' = POINTER TO DISPLAY TABLE 
Y = DISPLAY TABLE INDEX 


JSR 


SCNWRT 


X IS CLOBBERED 


EACH DISPLAY TABLE ENTRY CONSISTS OF 5 BYTES AS FOLLOWS 


0 

1 
2 

3 

4 


ENTRY TYPE (-1 = END OF TABLE) 

CURSOR X POSITION (HARDWARE NOTATION) 
CURSOR Y POSITION (HARDWARE NOTATION) 
LSB OF ADDRESS OF DATA RECORD 
MSB OF ADDRESS OF DATA RECORD 


SCNWRT LDA 
BMI 


LDA 

STA 


SCN005 


LDA 

CMP 

BNE 


INC 


SCN007 RTS 


SC NO 10 I NY 
LDA 
CLC 
ADC 
PHA 
LDX 
LDA 
CMP 
BNE 


PLA 

STA 

LDA 

STA 

I NY 

LDA 

STA 

JMP 


SCN015 


PLA 

STA 

LDA 

STA 

INY 

LDA 

STA 


SC NO 17 INY 
LDA 
STA 
INY 
LDA 
STA 


IOCBO+ICHID 

SCN007 


#*FF 

CRSINH 


< PDSPTB ) , Y 

#$FF 

SCN010 


CRSINH 


(PDSPTB), Y 


LMARGN 


MODE 
TTDX, X 
#2 

SCN015 




SPTCOL 

#0 

SPTCQL. + 1 




(PDSPTB), Y 

SPTRGW 

SCN017 


COLORS 

#0 

COL.CRS+1 


(PDSPTB), Y 
ROWCRS 


(PDSPTB), Y 
SWTEMP 


(PDSPTB), Y 
SWTEMP 4-1 


SEE IF OUTPUT DEVICE IS OPEN. 
DEVICE IS NOT OPEN. 


DISABLE CURSOR DURING RANDOM OUTPUTTING. 






GET ENTRY TYPE 
END OF TABLE? 
NO. 


YES — RE-ENABLE CURSOR (=0) 



SET CURSOR 


(CORRECT FOR LEFT MARGIN) 
(SAVE A) 


(DETERMINE WHICH CURSOR SET) 



SPLIT SCREEN? 


(RESTORE A) 


. . X POSITION . . . 





b Y POSITION. 


(RESTORE A) 

. . . X POSITION . . . 




b Y POSITION. 



MOVE DATA RECORD ADDRESS TO 7 SWTEMP 
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SC NO 17 



INV 

LDA 

STA 




( PDSPTB ) > Y 
SWTEMP 


MOVE DATA RECORD ADDRESS 














LDA 

STA 

INY 

STY 

LDY 

LDA 

TAX 


(PDSPTB), Y 
SWTEMP+1 




#0 

( SWTE’MP ) > 


SCN020 


INY 

DEX 

BNE 


BUMP TO NEXT BYTE. 








SETCUR — SET HARDWARE CURSOR 
CALLING SEQUENCE 


' XCURS ' %c 'YCURS ' - TURTLE CURSOR 
'SCNMOD 9 * SCREEN MODE 




JSR SETCUR 

'COLCRS ' S< 'ROWCRS ' 




HARDWARE CURSOR VALUES 








SETCUR 


LDA 

BMI 


I0CB2+ICHID 

STC090 


SEE IF OUTPUT DEVICE IS OPEN. 
NOT OPEN — DO NOTHING. 


SCNMOD 




GET SCREEN MODE (DETERMINES SIZE) 








XCURS 


XCENTR, X 
COLCRS 


ADJUST FOR DIFFERENT ORIGINS. 


XCURS+1 

#0 

COLCRS+1 






YCURS 
YCENTR, X 
ROWCRS 


ADJUST FOR DIFFERENT ORIGINS. 






STC090 RTS 


; SCREEN CENTER TABLES FOR CURSOR (ORDERED BY SCREEN 
; SEE ALSO 'CHKRNG ' 8< 'PLCTRT ' FOR RELATED TABLES 


















XCENTR . BYTE 
YCENTR . BYTE 


10, 10, 20, 40, 40, 80, 80, 160, 40, 40, 40 




















12, 6, 12, 24, 24, 48, 48, 96, 96, 96, 96 
















































; TURTLE REPRESENTATION ROUTINES 


; TRONOF — TURN MISSILE DMA ON OR OFF 

i 

i CALLING SEQUENCE: 




i 'TRTREP 

' * 0 IF OFF, 

ELSE ON 

f 

TRONOF LDA 

I0CB2+ICHID 

"S: " OPEN? 

BMI 

TROIOO 

NO — TURTLE REPRESENTATION OFF. 

LDA 

TRTREP 

TURTLE REPRESENTATION SELECTED? 

BEQ 

TROIOO 

NO — OFF. 

TAX 


SET COLOR REGISTERS. 

LDA 

TCOLQR—1 , X 

GET COLOR FROM TABLE. 

STA 

PCOLRO 


STA 

PCOLR1 


STA 

PC0LR2 


STA 

PC0LR3 


LDA 

#GRAMON 

EVERYTHING 0. K. — TURN HIM ON. 

STA 

GRACTL 


LDA 

DMACT 


ORA 

#DMACON 

ENABLE MISSILE DMA (LOW RESOLUTION MODE) 

STA 

DMACT 


JSR 

PLCTRT 

PLACE TURTLE REPRESENTATION ON SCREEN. 

RTS 



TROFF=* 


•*** EXTERNAL ENTRY POINT *** 

TROIOO LDA 

DMACT 

PLAYER DMA OFF. 

AND 

#*FF~DMACON 


STA 

DMACT 


LDA 

#0 


STA 

GRACTL 


STA 

GRAFM 


RTS 




PLCTRT — PLACE TURTLE REPRESENTATION ON SCREEN 
CALLING SEQUENCE: 

'TRTREP 7 - 0 IF DESELECTED, ELSE SELECTED 
'SCNMOD ' = CURRENT SCREEN MODE SELECTED 
'ORIENT ' * CURRENT TURTLE ORIENTATION 
' XCURS ' = TURTLE POSITION, X COORDINATE 
'VCURS ' = TURTLE POSITION, Y COORDINATE 


JSR 


PLCTRT 


I 


PLCTRT 

LDA 

I0CB2+ICHID 

M S: M OPEN? 


BN I 

PLC009 

NO — NO TURTLE 


LDA 

TRTREP 

TURTLE REPRESENTATION SELECTED? 


BNE 

PLCOIO 

YES. 

PLC009 

RTS 



PLCOIO 

LDX 

TRYPOS 

GET OLD POSITION 


LDY 

#8 



LDA 

#o 


PLC012 

STA 

TRBUFF. X 

REMOVE OLD REPRESENTATION. 


INX 




DEY 




BNE 

PLC012 



JSR 

CTEST 

TURTLE ON SCREEN? 


BNE 

PLC090 

NO. 




CONVERT CURSOR X TO COLOR CLOCKS 





JSR 

SETCUR 


LDX 

SCNMOD 


LDY 

CCP XTB > X 


BEG 

PLC030 


TYA 



CLC 



ROR 

A 


CLC 



ADC 

COLCRS 


DEY 



BNE 

PLC020 


BEQ 

PLC040 



CONVERT TURTLE CURSOR TO HANDLER COORDINATE SYSTEM 
DEPENDS UPON SCREEN MODE. 

GET # OF COLOR CLOCKS PER X POSITION. 

1/2 CLOCK IS SPECIFIED BY O IN TABLE. 










LDA 

ROR 

COLCRS 

A 

LDA 

COLCRS 

ROR 

A 

CLC 

ADC 

#$30 

LDY 

ORIENT 

SEC 

SBC 

TRDX, Y 

CLC 

STA 

HP0SM3 

ADC 

#2 

STA 

HP0SM2 

ADC 

#2 

STA 

HP0SM1 

ADC 

#2 

STA 

HPOSMO 


START WITH 1/2 POSITION OFFSET. 


NOW DO MULTIPLY. 


(BRA) 

DIVIDE BY 2 (1/2 












LEFT EDGE OFFSET. 

SUBTRACT ORIENTATION OFFSET. 
(CLEAR BORROW) 


RESULT IS MISSILE HORIZONTAL POSITION 







CONVERT CURSOR Y POSITION TO SCAN LINES 




LDY 

BEQ 

TYA 

CLC 

ROR 

CLC 


SLPYTB, X 
PLC0b3 


GET # OF SCAN LINES PER Y POSITION. 
1/2 CLOCK. 



START WITH 1/2 POSITION OFFSET. 


PLC050 ADC 


ROWCRS 


MULTIPLY. 
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1/2 CLUCK 






PLC050 




ADC 

DEY 

BNE 

BEQ 


PLC053 LDA 
CLC 
ROR 

PLC055 ADC 




START WITH 1/2 POSITION OFFSET. 


ROWCRS 
PLC050 
PLC055 
ROWCRS 
A 

#TVBUFF-TRB'JFF+4 
ORIENT 


MULTIPLY 


(BRA). 

DIVIDE BY 2. 


TRDY< Y 
TRYPOS 


*•** MAGIC OFFSET *** 
SUBTRACT OR I ENT AT I N OFFSET. 
(CLEAR BORROW) 

SAVE FOR NEXT TIME IN. 

SETUP FOR NOW. 








TRTREP 


GET PATTERN FOR CURRENT SELECTION. 
(CLEAR BORROW) 








X8. 


LDA 

STA 


PLC060 LDA 
STA 
INX 
I NY 
DEC 
BNE 


#8 

TEMP 




TURTLE. X 
TRBUFF, Y 


TEMP 

PLC060 


# OF BYTES IN PATTERN. 






MOVE PATTERN . . 




TO PLAYER BUFFER. 










PLC090 RTS 

; TURTLE MISSILE CHARACTERISTICS (BY MODE) 

; SEE "CHKRNG ' & 'PLCTRT ' FOR RELATED TABLES. 




; SCAN LINES PER CURSOR VERTICAL UNIT (BY MODE 1 - 11 ) 
SLPYTB .BYTE 4 . 8. 4 > 2, 2, 1 . 1 . 0 . 0 . 0 . 0 (0 = 1 / 2 ) 


* 

CCPXTB . BYTE 

8, 8. 4. 2> 2, 1, i> 0. 2, 2. 2 (0 

* 

; ORIENTATION 

OFFSET VERTICAL (NOTE: TABLE 

* 

TRDY - BYTE 

0, 0 


i ORIENTATION 

OFFSET HORIZONTAL DIRECTION 


TRDX . BYTE 

3. 6n 3. 0. Qj 0 




• 

1 

, ) r-ATA FT1P 




















TURTLE * * 


; ARROW TURTLE 


TURTL1 . BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 

/ 

; TURTLE TURTLE 


$10/ $38/ $10/ $10/ $10/ $10/ $10/ $00 N 
$06/ $06/ $08/ $10/ $20/ $40/ $80/ $00 NE 
$00/ $00/ $04/ $FE/ $04/ $00/ $00/ $00 E 
$80, $40/ $20, $10, $08, $06, $06/ $00 SE 
$10, $10, $10, $10, $10, $38, $10, $00 S 
$02, $04/ $08, $10, $20, $C0, $C0, $00 SW 
$00, $00/ $40/ $FE/ $40, $00, $00, $00 W 
$C0, $00, $20/ $10/ $08, $04, $02, $00 NW 


TURTL2 . BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 

* 

/ 

i POINT TURTLE 

/ 

TURTL3 . BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


$10, $70, $FE, $7C, $70, $FE, $00/ $00 N 
$39, $1E, $BE, $7F, $3F, $1D, $08, $04 NE 
$48, $70, $70, $7E, $70, $70, $48, $00 E 
$04, $08, $ 1 D, $3F, $7F, $BE, $1E, $39 BE 
$00, $FE, $70/ $70, $FE, $70, $10/ $00 S 
$20, $10/ $B8, $FC, $FE, $7D, $78, $90 BW 
$24/ $70/ $70, $FC, $70, $70/ $24/ $00 W 
$90, $78/ $7D, $FE, $FC, $B8, $10/ $20 NW 


$10/ $00/ $00, $00/ $00/ $00, $00, $00 N 
$02, $00, $00, $00, $00, $00, $00/ $00 NE 
$00/ $00, $00, $02, $00, $00/ $00, $00 E 
$00/ $00/ $00/ $00/ $00/ $00/ $02/ $00 SE 

$00/ $00/ $00/ $00/ $00/ $00/ $10/ $00 s 

$00/ $00/ $00/ $00/ $00/ $00/ $80/ $00 SW 

$00/ $00/ $00, $80/ $00/ $00, $00/ $00 w 

$80/ $00/ $00/ $00/ $00/ $00/ $00/ $00 NW 


; TURTLE COLOR/LUM FOR EACH REPRESENTATION 


TCOLOR . BYTE $0E, $E4, $0E 


TSTPLT — PLOT POINT IF TURTLE IN SCREEN LIMITS 
CALLING SEQUENCE: 



JSR 

TSTPLT 



TSTPLT 

JSR 

CTEST 

SEE 

IF TURTLE IN LIMITS. 


BNE 

PLT090 

NO - 

- DON'T PLOT. 

r 



YES 

— FALL THROUGH TO 'PLTPNT 

; PLTPNT — 

PLOT POINT (LEAVE 

TURTLE 

TRACK) IF VALID 

; CALLING SEQUENCE: 




'COLORN' = CURRENT PEN 

cc 

O 

Q 

o 

< $80 = PEN UP) 


JSR 

PLTPNT 




NOTE 

: ASSUMES THAT THE 

CURSOR IS IN SCREEN LIMITS!!! 

PLTPNT 

LDA 

COLORN 

SEE 

IF PEN DOWN. 


BMI 

PLT090 

NO - 

- UP. 


LDA 

I0CB2+ICHID 

SEE 

IF IN A GRAPHICS MODE. 


BMI 

PLT090 

NO. 



JSR 

SETCUR 

0. K. 

— ESTABLISH CURSOR. 


LDA 

COLORN 

NOW 

PLOT POINT. 


JSR 

TOUT 



PLT090 

RTS 










CLKSYN — CLOCK SYNCHRONIZATION ROUTINE 


CALLING SEQUENCE: 

A = DELAY FACTOR 
JSR CLKSYN 

RETURNS ONLY AFTER CLOCK VALUE CONTAINS Q'S WHERE 1 'S IN MASK; 


i 

MASK 

= (2 ** DELAY 

FACTOR) - 1 

l 

CLKSYN 

TAX 


DELAY FACTOR <=N) TO INDEX. 

RUN013 

LDA 

RTCLOK+2 

GET LSB OF FRAME COUNTER. 


AND 

STABLE- 1 > X 

LEAVE N-l BITS. 


BEQ 

RUN013 

WAIT FOR NON-ZERO. 

RUN017 

LDA 

RTCLOK+2 

GET LSB OF FRAME COUNTER AGAIN 

AND 

STABLE-1 > X 

LEAVE N-l BITS. 


BNE 

RUN017 

WAIT FOR ZERO. 


RTS 


START OF LEVEL 4 ROUTINES — GENERAL PURPOSE UTILITIES 

DECDIG — CHECK FOR LEGAL DECIMAL DIGIT 
CALLING SEQUENCE: 


CHAR 


CHARACTER IN QUESTION 





* ^ T ART OF LEVEL 4 ROUTINES — GENERAL PURPOSE UTILITIES 






DECDIG — CHECK FOR LEGAL DECIMAL DIGIT 
CALLING SEQUENCE: 




'CHAR ' 

= CHARACTER IN 

QUESTION 

• 


JSR 

DECDIG 




BCC 

NOT A DECIMAL 

DIGIT 

• 

DECDIG 

LDA 

CHAR 

IS CHARACTER - DIGIT'? 



CMP 

# 'O 


• 


BCC 

D1G090 

NO. 



LDA 

#'9 

MAYBE. 

% 


CMP 

CHAR 

SET CC FOR EXIT. 


DIG090 

RTS 


RETURN WITH CC SET 

% 










% 
















SETUDF — SET 'UDEF' ADDRESS IN 'FLINE ' POINTER 
CALLING SEQUENCE: 

JSR SETUDF 






'FLINE ' = ADDRESS OF 1ST BYTE OF 'UDEF 





SETUDF LDA 

MEMLO 

A 

STA 

FLINE 

* 

LDA 

MEMLO+i 


STA 

FLINE+i 

% 

RTS ' 


% 

i 



'UDEF ' STARTS AT BOTTOM OF MEMORY 

' 










' uLRUDF CLEAR USER DEFINITION AREA OF DEFINITIONS. 

i 

i CALLING SEQUENCE: 




• 

i 

> 

JSR 

CLRUDF 


CLRUDF 

LDA 

#ULINES 

• 


STA 

COUNT 


JSR 

SETUDF 

• 

CLUOIO 

LDY 

#0 


LDA 

#EOL 



STA 

(FLINE)/ Y 




BLANK USER DEFINITION AREA BY DELETING ALL 
SETUP POINTER TO UDEF REGION. 


LINES. 






#FLINE~BTAB 

#LINSIZ 

PADDY 

COUNT 

CLUOIO 


EDL AT BEGINNING DELETES DEFINITION. 
INCREMENT POINTER. 


ALL LINES DELETED? 
NO. 







V. 


YES 


TERMINATE 'UDEF' AREA. 


LDY #0 

LDA #*FF 

STA < FL I NE ) » Y 

RTS 


; CLRVDF — CLEAR USER VARIABLE DEFINTION AREA 

* 

/ 

i CALLING SEQUENCE: 


i 


i 

JSR 

CLRVDF 


i 

CLRVDF 

LDA 

#' 

(BLANK). 


LDX 

#0 


CLV010 

STA 

VDEFi X 



I NX 




CPX 

#VSIZ£ 

DONE? 


BNE 

CLV01 0 

NO. 


LDA 

#EOL 

TERMINATE AREA WITH EOL. 


STA 

VDEF-1, X 



LDA 

#$FF 

YES — TERMINATE ' VDEF ' AREA. 


STA 

VDEF, X 



RTS 





DDCRI — DOUBLE BYTE DECREMENT 
CALLING SEQUENCE: 

X = 'DTAB ' INDEX TO DOUBLE-BYTE <LO, HI) 


DDCRI 


JSR 

DDCRI 


'DTAB ' 

(X) = 'DTAB MX) 

- 1 

LDA 

BNE 

DTAB, X 
DDC030 

CHECK FOR BORROW. 
NO BORROW. 

DEC 

DTAB+1, X 

BORROW FROM MSB. 

DEC 

RTS 

DTAB, X 

DECREMENT LSB 


DINCI — DOUBLE BYTE INCREMENT 
CALLING SEQUENCE: 

X = 'DTAB ' INDEX TO DOUBLE BYTE <L.O, HI) 


# 


JSR 

DINCI 


* 


'DTAB 

MX) = 'DTAB MX) 

+ 1 


DINCI 

INC 

BNE 

DTAB, X 
DIN030 

INCREMENT LSB. 
NO CARRY. 



INC 

DTAB+1 > X 

CARRY TO MSB. 

t 

DIN030 

RTS 
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Y REGISTER IS CLOBBERED 


KBIN 

GCH010 


CHIN 

#EOL 

GCH020 


#EC INCL 
DIRECT 











vre rroMTsiATr /i merer/ aoca 




O MEANS GET DATA FROM MEMORY, ELSE FROM DEVICE 
POINTER TO MEMORY INPUT DATA (USED WHEN 'KBIN' 
* POINTER TO MEMORY OUTPUT DATA 



O) 


A = 'CHAR' * CHARACTER OF AT ASCI I DATA 

DATA STORED IN OUTPUT BUFFER AS WELL 

' INPT ' & 'OUTPT ' INDICES UPDATED AS APPROPRIATE 









KEYBOARD INPUT DESIRED? 

NO — GET DATA FROM MEMORY. 







YES — GET DATA FROM DEVICE. 
CHECK FOR PREMATURE TERMINATION. 
NO — STORE DATA NOW. 






« ■■■ 









YES - FATAL ERROR. 


INPT+2 GET INDEX. 

( INPT), Y 






SET MEMORY DMT. 


■ ■■ -I — - ■ 




















INPT+2 


CHAR 


SAVE NEW INDEX. 
SAVE CHA 


OUTPT+1 
#BUCKET/256 


GCH090 


LDY 
CP Y 
BNE 


OUTPT +2 
# I NS I Z 





LDA 


JMP 

GCH025 

STA 


INY 


STY 

GCH090 

RTS 











Si/fetAC** f ow 


; I/O UTILITIES 



ABRTCK — CHECK FOR ABORT FROM OPERATOR 
CALLING SEQUENCE: 



JSR 

ABRTCK 


ROUTINE 

JUMPS TO 

ABRTCK 

LDA 

BREAK 


BNE 

ABC090 


LDA 

#*FF 


STA 

BREAK 


LDA 

#ECABRT 


JMP 

DIRECT 

ABC090 

RTS 



"DIRECT ' IF ABORTED, ELSE RETURNS 

TEST FOR BREAK KEY. 

NOT PRESSED. 


PRESSED — CLEAR FLAG. 


ABORT OPERATION. 





PRICOM — PRIORITY COMMAND CHECK 


CALLING SEQUENCE: 

USR PRICOM 




CHECKS FOR PENDING KEYSTROKE FROM KEYBOARD. IF SO, SUSPENDS 
CURRENT COMMAND AND INITIATES THE ONE PENDING; AT COMPLETION IT 
RESUMES THE PRIOR COMMAND AND RETURNS. 



PRICOM LDA 

EXEC 

• 

BEQ 

PR 1090 


LDA 

CH 

% 

CMP 

#*FF 

BEQ 

PR 1090 

* 

LDA 

SPEED 

CMP 

#SCSTEP 


BEQ 

PR 1090 

t 

JSR 

PUSHHS 


LDX 

#PTRSRH+1-DTAB 

• 

JSR 

SPSHI 

A 

LDX 

#LININ-DTAB 

• 

JSR 

SPSHI 


LDA 

CHAR 

• 

PHA 


• 

JSR 

COMMND 


PLA 


% 

STA 

CHAR 


LDX 

#LININ-DTAB 


JSR 

SPUL.I 


y 



NON-EXECUTE. 

KEYSTROKE?- 

NO. 

IGNORE IF IN SINGLE-STEP OPERATION. 

PUSH HARDWARE STACK TO SOFTWARE STACK 

SAVE KEY DATA: 

. . . ALL POINTERS . . . 

. . . THE CURRENT COMMAND LINE ... 

... & THE CURRENT COMMAND. 

GET & EXECUTE ONE COMMAND. 

RESTORE CURRENT COMMAND . . . 

. . . CURRENT COMMAND LINE ... 







JSR 

PR 1090 RTS 


PULLHS 


RESTORE HARDWARE STACK FROM SOFTWARE STACK. 
*** DON'T CHANGE ABOVE JSR TO JMP ! • • *** 




CHIN — CHARACTER IN FROM CONSOLE 


I 

i CALLING SEQUENCE 

i 

} JSR 










CHIN 


CHIN 


A = CHARACTER 

STX TEMP 

STY TEMP+1 




LDX 

JSR 

CMP 

BCS 

CMP 

BCC 


EOR 

CHI010 PHA 


# I OC B 1 
CIO 

#$1B 

CHI010 

#$01 

CHI010 

#$60 


SAVE X & Y REGISTERS. 
INPUT IOCB. 








CONVERT CTRL-A TO CTRL-Z 




• • • TO LOWER CASE EQUIVALENT 








ECHO IF SPLIT MODE 

LDX MODE 

LDA TTDX, X 

CMP #2 

BNE CHIG20 

P LA 
PHA 




SPLIT SCREEN? 
NO. 




YES — GET CHARACTER. 






JSR 

C0UT2 

PLA 

LDY 

TEMP+1 

LDX 

TEMP 

RTS 



RESTORE X & Y REGISTERS. 










> COUT — CHARACTER OUT TO SCREEN DEVICE 
f CALLING SEQUENCE: 

i 

i A = CHARACTER 















JSR 

COUT 

r 

COUT 

STX 

TEMP 


STY 

TEMP+1 


SAVE X & Y REGISTERS. 




• 

; *** EXTERNAL ENTRY POINT 


C0UT2 LDX 

#EPUTC— IOVBAS 

# 

JSR 

IOHAND 

ft 

JMP 

IOERCK 


OUTPUT TO "E : u 
CHECK FOR I/O ERRORS & RETURN. 


w w « » 




COUT 


STX 

TEMP 

SAVE X & 

STY 

TEMP+1 


4 EXTERNAL ENTRY POINT 


LDX 

#EPUTC— TOVBAS 

OUTPUT TO 

JSR 

IOHAND 


JMP 

IOERCK 

CHECK FOR 


TOUT — TURTLE VALUE OUT TO DISPLAY DEVICE 
CALLING SEQUENCE: 

A = TURTLE CHARACTER 


TOUT 


JSR 

TOUT 

STX 

TEMP 

STY 

TEMP+1 

DEC 

DSPFLG 

LDX 

#SPUTC— 

JSR 

IOHAND 

INC 

DSPFLG 

JMP 

IOERCK 


SAVE X & Y REGISTERS. 

INHIBIT CONTROL CHARACTER PROCESSING. 
OUTPUT TO "S: ". 

RE-ENABLE CONTROL CHARACTER PROCESSING. 
CHECK FOR I/O ERRORS Z< RETURN. 








TIN — TURTLE VALUE IN FROM DISPLAY DEVICE 
CALLING SEQUENCE: 

JSR TIN 

A = COLOR VALUE UNDER TURTLE 








TIN 


STX TEMP SAVE X Y REGISTERS. 

STY TEMP-+- 1 

LDX #SGETC— IOVBAS INPUT FROM "S: ". 

JSR I OHAND- 




*** EXTERNAL ENTRY POINT *■** 


CP Y 

#0 

BPL 

TIN010 

LDA 

#ECIOER 

JMP 

DIRECT 

LDY 

TEMP 4-1 

LDX ' 
RTS 

TEMP 


GOOD STATUS? 
YES. 


NO 


DEBUG ONLY LOOP. 


RESTORE X & Y REGISTERS. 
















IOHAND — DIRECT I/O INTERFACE ROUTINE 
CALLING SEQUENCE: 

X = I/O ROUTINE OFFSET TO ADDRESS TABLE ENTRY (SYSTEM) 
JSR IOHAND 

CLOBBERS Y REGISTER 


IOVBAS+1 » X 

IOVBAS+O, X 


* CALLING SEQUENCE: 

JSR DNAME 


JSR 

GETCH 

CMP 

•• 

BNE 

DNAME 

LDA 

EXEC 

BNE 

DNM020 

JSR 

GETCH 

CMP 

#'** 

BNE 

DNM010 

RTS 




SAVE REGISTER A 
GET ADDRESS MSB 


GET ADDRESS LSB. 


RESTORE REGISTER A 

< JMP). 


SCAN INPUT FOR DEVICE NAME < M CDEVICE NAME> "> 








' OPNBUF ' CONTAINS E>EVICE SPECIFICATION 

SCAN TO OPENING QUOTE 


KEEP ON SEARCHING. 


EXECUTE. 

NON-EXECUTE — SCAN TO CLOSING QUOTE. 








DNM025 JSR 
CMP 
BEQ 


GETCH 

# 

DNM030 


GET DEVICE SPECIFICATION. 
CLOSING QUOTE? 

YES. 






ST A 
INX 
CPX 
BNE 


nPwniiP. y 

Urlxo Ur i A 


#DNSIZE-K 
DNM025 



CHECK NAME LENGTH. 
O. K 


#ECDNTL 
DIREC' 

#EOL 


DEVICE NAME TOO LONG 


i CALLING SEQUENCE: 

A = OPEN DIRECTION 













DOPEN 



> 

SETS 

) 

DOES 


/ 

DOPEN 

STA 



LDA 



STA 



i n a 


IOCB3+XCAUX1. 

#0 

IQCB3+ICAUX2 

4mDCk) 


SAVE OPEN DIRECT 







1 

SETS 

UP COMMAND BYTE AFTER OPEN FOR GETCH OR PUTCH. 


DOES 

NOT RETURN IF OPEN 

ERROR IS ENCOUNTERED. 

i 

DOPFN 

STA 

TOCB3+ICAUX1 

savf open diffcttonI Km * 


LDA 

#0 



STA 

IQCB3+ICAUX2 



LDA 

#QPEN 



STA 

I0CB3+ICC0M 



LDX 

#I0CB3 

OPEN DEVICE. 


JSR 

CIO 



CPY 

#0 

CHECK STATUS. 


BPL 

DOPOIO 

0. K. 


JSR 

DCLOSE 

N. G. — QUIT. 


LDA 

#ECOPEN 

OPEN ERROR CODE. 


JMP 

DIRECT 


DOPOIO 

LDA 

#GETC 

SETUP COMMAND FOR I/O THAT FOLLOWS 


LDY 

I0CB3+ICAUX 1 

. . . BASED ON OPEN DIRECTION. 


CPY 

#0READ 

ASSUME READ. 


BEQ 

D0P020 



LDA 

#PUTC 

NO — WRITE. 

D0P020 

STA 

I0CB3+ICC0M 



RTS 




DIN & DOUT — I0CB3 DATA IN AND OUT 
CALLING SEQUENCES: 

A = DATA 


OR 


DOUT 

DIN 


DIOOIO 


JSR 

DOUT 

JSR 

DIN 

A = 

DATA 

STX 

STY 

TEMP 
TEMP 4-1 

LDX 

JSR 

#I0CB3 

CIO 

CPY 

BPL 

#0 

DIOOIO 

JSR 

LDA 

JMP 

DCLOSE 

#ECIOER 

DIRECT 

LDY 

LDX 

RTS 

TEMP+1 

TEMP 




SAVE X & Y REGISTERS. 


DO I/O OPERATION. 


CHECK STATUS. 
O. K. 


ERROR — CLOSE DEVICE. 


RESTORE X & Y REGISTERS. 


DCLOSE — CLOSE IOCB3 


CALLING SEQUENCE: 


« 

f 

JSR 

DCLOSE 


i 

DC LOSE 

LDA 

#€LOSE 

CLOSE 


STA 

I0CB3+ICC0M 



LDX 

#I0CB3 



JSR 

CIO 



RTS 





y 
















PADDY 



— ADD Y TO ADDRESS POINTER 

l CALLING SEQUENCE: 

; Y = UNSIGNED NUMBER <0-255) 

; X = 'DTAB ' INDEX 










JSR PADDY 

'DTAB ' ( X > = 'DTAB'(X) + Y 


PADDY CLC 
TYA 

ADC DTAB, X 
STA DTAB, X 
BCC PAD090 


INC DTAB+1, X 

PADO90 RTS 



NO CARRY — ALL DONE. 


CARRY TO MSD. 


% 








SXXXI UTILITIES — DEAL WITH 'DTAB'(X) STRING (RECORDS) 

SCLRI — CLEAR RECORD TO ZEROS 
CALLING SEQUENCE: 

X = 'DTAB ' INDEX TO RECORD 
JSR SCLR I 

CLEARS RECORD TO ASCII ZEROS 


SCLRI 


SCLOIO 


LDA 

DTAB-1 » X 

GET STRING LENGTH. 

STA 

TEMP 


LDA 

# '0 

FILL VALUE. 

STA 

DTAB, X 

STORE A BYTE. 

INX 

DEC 

TEMP 

DONE? 

BNE 

SCLOIO 

NO. 

RTS 


YES. 


SDCRI — STRING DECREMENT 
CALLING SEQUENCE: 

X = 'DTAB' INDEX TO RECORD 





JSR 

SDCRI 

f 

DTAB < X ) 

= DTAB < X 

SDCRI 

JSR 

TSTNUM 


BNE 

SDC030 

SDC020 

RTS 


SDC030 

TXA 

CLC 



ADC 

TAX 

DTAB- 1 t X 

SDC040 

DEC 

DTAB-1, X 


LDA 

DTAB-1, X 


CMP 

#'0 


BCS 

SDC020 


LDA 

# '9 


STA 

DEX 

DTAB-1, X 


JMP 

SDC040 


- 1 (UNLESS IT IS ZERO) 


SEE IF NUMBER IS ZERO. 
NO — DO DECREMENT. 


ALL DONE. 




CALCULATE INDEX TO END OF STRING. 
ADD LENGTH; 

POINTS TO 1 PAST END OF STRING. 


DECREMENT DIGIT. 

CHECK FOR UNDERFLOW. 

~ Or K. 

DIGIT UNDERFLOW — SET TO 9 
... & BORROW. 




-t 


i SINCI — STRING INCREMENT 

i C ALL I NG SEGUENC E : 

X = 'DTAB' INDEX TO RECORD 

JSR SINCI 

'DTAB'(X) — 'DTAB'(X) + 1 (UNLESS = ALL 9 S) 












X = 'DTAB' INDEX TO RECORD 
USR SINCI 

'DTAB ' < X ) = 'DTAB'(X) * 1 < UNLESS = ALL 9'S) 


SINCI 


SIN030 


SIN040 


STX 

TEMP 

SAVE INDEX. 

LDA 

DTAB-1, X 

# OF DIGITS IN NUMBER 

STA 

TEMP+1 


LDA 

DTAB, X 

CHECK FOR ALL 9'S FIRST. 

CMP 

#'9 


BNE 

SIN030 

NOT ALL 9'S. 

INX 



DEC 

TEMP+1 


BNE 

SINOIO 

MORE DIGITS TO CHECK. 



ALL 9'S — DON'T INCREMENT. 

RTS 



LDX 

TEMP 

RESTORE STARTING INDEX. 

TXA 


CALCULATE INDEX TO END OF STRING. 

CLC 



ADC 

DTAB-1 , X 

ADD LENGTH. 

TAX 


NOW POINTS 1 PAST END OF STRING. 

INC 

DTAB-1 , X 

INCREMENT DIGIT. 

LDA 

#'9 

CHECK FOR OVERFLOW. 

CMP 

DTAB-1, X 


BCS 

SIN020 

0. K. 

LDA 

# '0 

DIGIT OVERFLOW — SET TO 0 . . . 

STA 

DTAB-1, X 


DEX 



JMP 

SIN040 

... & CARRY TO NEXT DIGIT. 


SMOVI — MOVE CONTENT OF ONE RECORD TO ANOTHER 
CALLING SEQUENCE: 


X = 'DTAB' INDEX TO SOURCE RECORD 
Y = 'DTAB' INDEX TO DESTINATION RECORD 


JSR SMOVI 

'DTAB'(Y) = ' DT AB ' < X ) 


SMOVI 


LDA 

DTAB-1, X 

STA 

TEMP 

LDA 

DTAB, X 

STA 

DTAB, Y 

INX 


INY 


DEC 

TEMP 

BNE 

SMV010 

RTS 



GET RECORD LENGTH FROM SOURCE. 


MOVE DATA FROM SOURCE . 
. . . TO DESTINATION. 


DONE? 

NO. 


; SPSHI 


PUSH STRING TO STACK 





' 1 INt SjfcUUhNLfc 


SPSHI 


X * 'DTAB ' INDEX OF STRING 
JSR SPHSI 

HARDWARE STACK - STRING DATA 

REMOVE RETURN ADDRESS FROM STACK TEMPORARILY. 


PLA 

STA 

X JUMP+1 

PLA 

STA 

X JUMP +2 

LDA 

DTAB-1 / X 

STA 

TEMP 

LDA 

DTAB, X 

PHA 

INX 

DEC 

TEMP 

BNE 

SPHOIO 

JMP 

SPLRET 


GET STRING LENGTH. 


GET DATA . . . 

... & PUSH TO STACK. 


COMMON CODE FOR RETURN. 


SPULI — PULL STRING DATA FROM STACK 
CALLING SEQUENCE. 

X = 'DTAB ' INDEX TO STRING 

JSR SPULI 

DTAB ( X ) = DATA FROM STACK 


SPULI 


PLA 


STA 

X JUMP+1 

PLA 


STA 

XJUMP+2 

STX 

TEMP 

TXA 


CLC 


ADC 

DTAB-1, X 

TAX 



REMOVE RETURN ADDRESS FROM STACK TEMPORARILY 


SAVE INDEX TO MSD. 
CALCULATE INDEX TO LSD 


BY ADDING STRING LENGTH TO START INDEX. 


SPLOIO 


DEX 

PLA 

STA 

CPX 

BNE 


DTAB/ X 

TEMP 

SPLOIO 


PULL DATA FROM STACK . 
. . . TO "DTAB ' . 


; EXTERNAL ENTRY POINT 


SPLRET LDA 
PHA 
LDA 
PHA 
RTS 


XJUMP+2 
X JUMP+1 


RESTORE RETURN ADDRESS TO STACK. 


RETURN. 


SSWAPI — SWAP INDEXED RECORD WITH 'NUMBER' 
CALLING SEQUENCE 


X = DTAB INDEX OF RECORD 
'NUMBER' = NUMERIC STRING ( RECORD ) 


Bmmen formi Inc 


SSWAPI — SWAP INDEXED RECORD WITH 'NUMBER ' 


CALLING SEQUENCE: 


X * DTAB INDEX OF RECORD 
'NUMBER' = NUMERIC STRING < RECORD) 

JSR SSWAP I 

'DTAB'(X) AND 'NUMBER' CONTENTS ARE SWAPPED 


SSWAP I LDY 

SSWOIO LDA 
PHA 


#0 

NUMBER* Y 

DTAB* X 
NUMBER, Y 

DTAB, X 


SETUP 'NUMBER ' INDEX. 
GET 'NUMBER' DATA. 


MOVE 'DTAB' DATA ... 
... TO 'NUMBER ' . . . 

... & VICE VERSA. 


RTS 


NUMBER- 1 
SSWOIO 


DONE? 

NO. 




i TSTNUM — TEST RECORD FOR = ZEROS 
CALLING SEQUENCE: 


X = 'DTAB' INDEX TO RECORD 


JSR 
BNE 

TSTNUM STX 
LDA 
STA 

TST010 LDA 
CMP 
BNE 


TSTNUM 

NON-ZERO 

TEMP 

DTAB-1* X 
TEMP+1 


DTAB, X 
#'0 

TST020 




SAVE DATA INDEX. 
RECORD LENGTH. 


GET A DIGIT. 
NON-ZERO ■ 






CC IS SET FOR EXIT. 


TST020 


INX 

DEC 

BNE 


TEMP+1 

TST010 


TEMP 


SAVE CC. 

RESTORE INDEX. 
RESTORE CC. 

RETURN WITH CC SET. 


SBTA! — CONVERT BINARY BYTE TO ASCII STRING (DECIMAL) 


; CALLING SEQUENCE: 


A « BINARY NUMBER (UNSIGNED 0-255) 
X = 'DTAB' INDEX TO RECORD 


JSR 


SBTA I 


'DTAB'(X) = ASCII RESULT OF NUMBER CONVERSION 



ALGORITHM; SUCCESSIVE SUBTRACTION OF DECREASING POWERS OF TEN DECIMAL 


SBTAI PHA 
TXA 
PHA 


SAVE REGISTERS. 


JSR SCLRI 


CLEAR RECORD. 


PLA — ■- - RESTORE REGISTERS, 

TAX 

PLA 



LDY #0 INITIALIZE STRING INDEX. 


SB AO 10 SEC 

INC DTAB+NL-3, X 

SBC BTATAB, Y 

BCS SBA010 


(CLEAR BORROW) 
PRE-INCREMENT RESULT DIGIT. 
SUBTRACT A POWER OF TEN. 

NO UNDERFLOW — TRY AGAIN. 


ADC BTATAB, Y 

INY 

DEC DTAB+NL-3, X 

INX 

CPY #3 

BNE SBA010 


UNDERFLOW — UNDO PRE-INCREMENT 

. . . St UNDO UNDERFLOW. 

ALL THREE DIGITS? 

NO — CONTINUE. 




RTS 


BTATAB . BYTE 


100, 10, 1 POWERS OF TEN. 



; SATBI — CONVERT ASCII STRING (DECIMAL) TO BINARY BYTE 
; CALLING SEQUENCE: 


; X = 

$ 

; JSR 

i 

; A = 


; ALGORITHM: 

/ 

SATBI LDA 
STA 


'DTAB ' INDEX TO RECORD 
SATBI 


BINARY NUMBER (UNSIGNED), CONVERSION OF NUMERIC STRING 
MODULO 256. 


( ( MSD * 10) + NSD ) * 10 + LSD 

DTAB— 1 , X GET STRING LENGTH. 

TEMP 



LDA #0 


SAB010 


STA 

TEMP+1 

LDA 

DTAB, X 

INX 


SEC 


SBC 

#'0 

CLC 


ADC 

TEMP+1 

DEC 

TEMP 

BEQ 

SAB090 

ASL 

A 

STA 

TEMP+1 

ASL 

A 

ASL 

A 

CLC 


ADC 

TEMP+1 

JMP 

SABO 10 


INITIALIZE . 

. . . RUNNING RESULT. 

GET AN ASCII DIGIT. 

(CLEAR BORROW) 

CONVERT TO BCD DIGIT. 

ADD TO PARTIAL RESULT. 

MORE DIGITS? 

NO — RESULT IN REGISTER A. 

YES — MULTIPLY BY TEN. 

X2. 



X8 

X10. 





SAB090 RTS 


II * x 


TEMP+l 
SABO 10 


Ac.. 


xe 


xio. 

SAVE 




. 






PUSHHS PUSH HARDWARE STACK TO SOFTWARE STACK 
CALLING SEQUENCE: 


PUSHHS 


PHH030 


PHH032 


JSR 

PUSHHS 

PLA 

STA 

X JUMP 41 

PLA 

STA 

XJUMP+2 

LDY 

#3 

PLA 

STA 

(SSTACK), Y 

INY 

TSX 

CPX 

#*FF 

BNE 

PHH030 

LDA 

SSTACK 

STA 

( SSTACK ) , Y 

INY 

LDA 

SSTACK+1 

STA 

(SSTACK), Y 

INY 

TYA 

SEC 

SBC 

#3 

STA 

(SSTACK), Y 

TAY 

INY 

LDX 

#SSTACK-DTAB 

JSR 

PADDY 

LDA 

MEMHI+1 

CLC 

SBC 

SSTACK4-1 

BNE 

PHH032 

LDA 

#ECSTKO 

JMP 

DIRECT 

JMP 

SPLRET 


GET RETURN ADDRESS . 
& SAVE FOR EXIT. 


INDEX TO SOFTWARE STACK. 


MOVE DATA FROM HARDWARE STACK 
... TO SOFTWARE STACK. 


STACK EMPTY? 
NO. 




NOW STORE STACK FRAME OVERHEAD. 
OLD FRAME ADDRESS <L0). 


OLD FRAME ADDRESS (HI). 








FRAME INDEX (SIZE + 3). 
(CLEAR BORROW). 




BUMP POINTER TO END OF NEW FRAME. 


CHECK FOR OVERFLOW ABOUT TO HAPPEN 
SET BORROW. 








NOT WITHIN A PAGE YET — 

STACK OVERFLOW — ABORT. 
RETURN TO CALLER. 


O. K. 










; PULLHS — PULL DATA FROM SOFTWARE STACK TO HARDWARE STACK 

f 

; CALLING SEQUENCE: 

9 

i JSR PULLHS 

# 

PULLHS PLA GET RETURN ADDRESS . . . 


PLH037 


PLA 


STA 

X JUMP +2 

LDY 

#0 

LDA 

( SSTACK ) * Y 

PHA 


INY 


LDA 

( SSTACK > » Y 

PHA 


INY 


LDA 

(SSTACK), Y 

TAY 


PLA 


STA 

SSTACK+1 

PLA 


STA 

SSTACK 

LDA 

(SSTACK), Y 

PHA 



DEY 


CPY 

#2 

BNE 

PLH037 

JMP 

SPLRET 


INDEX TO SOFTWARE STACK. 
POINTER ADDRESS <LO>. 
SAVE TEMPORARILY. 


POINTER ADDRESS <HI). 
SAVE TEMPORARILY. 


DATA INDEX (DATA PORTION OF FRAME) 
POINTER ADDRESS (HI). 

POINTER ADDRESS (LG). 


GET DATA FROM SOFTWARE STACK. 
PUSH TO HARDWARE STACK. 
DECREMENT INDEX. 

DONE? 

NO. 


RETURN TO CALLER. 






CAN1 


CAN2 


USER DEFINIT1 

. BYTE 
. WORD 

'1. 'Y 

CAN1 

. BYTE 
. WORD 

'2, 'Y 
CAN2 

. BYTE 
. WORD 

'3, 'K 
CAN3 

. BYTE 
. WORD 

'4, 'Y 

CAN4 

. BYTE 
. WORD 

'5. 'Y 
CANS 

. BYTE 
. WORD 

'6* 'J 
CAN6 

. BYTE 
. WORD 

' 7 , 'Y 
CAN7 

. BYTE 
. WORD 

'8, 'Y 
CAN8 

. BYTE 
. WORD 

'9, 'Y 
CAN9 

. BYTE 
. WORD 

'A, 'Y 
CANA 

. BYTE 
. WORD 

'B, ' J 
CANB 

. BYTE 
WORD 

'C, ' 
CANC 

. BYTE 
. WORD 

'D, 'Y 
CAND 

. BYTE 

$FF 

*=*+32 



BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


'LOAD ' 8c 'RUN' COMMANDS 

SIERP INSKI « Y 8c HILBERT = J 

TR INARY TREE = Y 8c SPIRAL = J 

SUPER SPIRAL = K 

ABS DRAW = Y, REL DRAW = 

WALLBANGER = Y* BREAKOUT = J 
HOLLYWOOD SQUARES = J> W/O SQUARE = Y 
KOCH CURVE = Y 
THE ZAPPER = Y 
TURTLE DRAW = Y 
POSIES = Y 
SUPERTURTLE = J 
COLORPOWER MACHINE 


MAGIC CARPET = Y 


END OF TABLE. 

*** SPARES FOR PATCHING *** 


EOL 


" I =T ( - 1 2F 1 3LG3L 1 2F I + ) 2R " , 

••G=4F"> EOL 

M Z=T < — VG2LZ2RGZG2LV+ ) 2L" > EOL 
•»y=T ( -Z2RGVG2LV2RGZ+ ) 2R” i EOL 
" Y= < X2L4+4 ( 2F I ) ) "» EOL 
" J= ( XL5+Z ) " / EOL 
» X= ( UCHNSQ2RQ3R2GD ) " . EOL 
*'G=E_.< FG> " , EOL 
EOF 

•• <3= < -~T < ++ Z — AF 2R 3 < G2R ) AF A+ ) <+4R> > " , EOL 
M Z=T ( 2-Z+ ) * EOL 
" Y= ( CHN&4+4 < 4 ( G2R > A+ > > " , EOL 
•’I = (T<2-2<2LAF) I )_> " > EOL 
”V=<2+2<2RAF> ) ", EOL. 

» J= ( CHN@ 1 3V4R C @P 2FSP 34R I > " » EOL 



















• 

CAN3 

. BYTE 




. BYTE 




. BYTE 




. BYTE 




BYTE 


• 


. BYTE 



CAN4 

BYTE 




. BYTE 


w 


. BYTE 




. BYTE 


a 


. BYTE 


V 


. BYTE 


“Q*<3RS(LIT_* >TZ_> ", EOL 
“ 1 - ( UF«2L 5TR ( SR ) R TFD4R > « , EOL 
'* Z * ( B2L9999Y ) " , EOL 
"Y-<3RS<LST(F! MIT *))T '> M ,EOL 
"K»H~Q>", EOL 
EOF 


* Y* ( H#+P “ 
CT, '3. CE, ' 3 


1> N*\ DU*AF__2R4BF 2R4CF 2R4DF 01W))",E0L 
*\M1<**YDUI01W>'*,E0L ~ ~ 

" I*( AF*A+_*C-_*BR *DL )",EOL 
EOF 




CANS 





BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


"Y«<UNR" 

CE# '2# CT. '3 

,, 1<~ST<^2L2RST4R )FW>>",EOL 




CAN 6 


BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


CAN7 



BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
.BYTE 
. BYTE 
. BYTE 


CAN9 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


CANA 


BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


CANB 


BYTE 

BYTE 

BYTE 

RVTF 


1 V (LSf ( ^ 3 R ) (2RST (Z3L) (LST ( Z?2L2R )F) ) ) ", EOL 
" Z» ( FDU4RF4R ) " , EOL 
”0»<NRe PD" 

CE. '2 

" 1 ( *'VW ) > “ , EOL 
EOF 






" V= < 1 3? 1 3+ 1 3—?8<OS< 1 ) " , EOL 
"X=< 1 3? 1 3-»- 1 3— ?&2&4 ) u , EOL 
"Y=(200?RFP?VX ) EOL 
"J=< M 

CD. '2, CT, 'O, CE, M, CM, 'O 
“1 ( ''YNC @ 1 3?+_*:# I 34 ( # IF2R ) 1 5 W ) >", EOL 
EOF 


" 2 S T < ~ZG4L3< 2RGZG ) 3< GZG2L ) 4RGZ + ) ", EOL 

••G=1F»,E0L 

" J=4 ( GZG2R ) " , EOL 

.•Y=s ( •• 

CD, '7, CM, 'O, CT, "0 
"e3+HN3LU55FNDCJ> ", EOL 
EOF 




"G** < 3R2F2R ) " , EOL 




" Z= < & 0 C A +&1 3CT < AFG8<2-Z&3)H3 ) ", EOL 
" Y= ( " 

CM, 'O, CA, 'G 


M ei( A +PMZ) ) ", EOL 

" I = ( ? ( 3R3F3L ) < 3L2F3L ) ) " , EOL 

" J= C ?7 < AFR — ) L 3 " , EOL 

"K = CT(7<AF2R)FR-)_D", EOL 

EOF 




"K=<$A(FB),JtB(RB)_>D<LB)_*C<H5B>_> ", EOL 
" y= ( " 

CM, 'O, CT, '2 
" 1 ( •-'K ) ) " , EOL 
EOF 





" Y= ( " 

CM, '0, CT, '2 
"HNl <^K) ) u , EOL 
"K=(U$AF_$BR_$DL_*C(DIB> 2W) ", EOL 
M I *8 ( 8 ( 3FR ) 3L6F ) " , EOL 
" Z« ( 8 < B ( 3FRAAW > 3L6F2RA0 ) ) " , EOL 
EOF 

"U-4F", EOL 
"V=(2FRFLF ) ", EOL 
"W=(FR2FLF ) ", EOL 
•• \ •• pm 




. BYTE 
. BYTE 

CANB BYTE 

. BYTE 
. BYTE 
. BYTE 
BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 

CANC . BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
, BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 

CAND . BYTE 


u Z— ( 8 < 8 ( 3FRAAW ) 3L6F2RA0 ) > n , EOL 
EOF 

"U« 4F", EOL 

"V=(2FRFL.F> ", EOL 

" W= < FR2FLF ) " , EOL 

"X=<R3FL> ", EOL 

" Y= ( 2RFL2FRF2L ) " , EOL 

" Z= < 2R2FLFRF2L ) " , EOL 

,, R = C@#Z+4-T(@=#Z2R) ( #Z++=#Z ) 3", EOL 

"L=C@#Z+T<~=#Z> <5+=#Z2L) 3", EOL 

*' J=(HCN1 ( A $A*F_*B*R_$D*L_$CH_2W> ) ", EOL 

"F=L'&#Z+T < -T < -T < — T < -T < --T_*Z > *Y- ) *X > ) *V ) *U3 " , EOL 

"C=4 ( *U*V*W*X*Y*Z2R ) " , EOL 

EOF 

"A=(G#A++=#A&1 ) ", EOL 
"B=<@#B++=#B&2> ", EOL 
"C=<@#A+- =#A&1 ) ", EOL 
"D=(<a#B+- =#B8<2> ", EOL 
"E= ( Q#C++=#C&4 ) " , EOL 
" F= ( §#D++=#D&0 ) " , EOL 
"G= ( @#C+-=#C8<4 ) " , EOL 
"H= ( @#Dh — ~#DZ*0 ) " , EOL 
"M=( " 

CM, 'O, CT, '0 

"HCN£=#A==#B=#C=#D*N> ", EOL 
" N=8 < 3-+-P E 32 ( 8 ( AFR ) + ) 3 R > " , EOL 
"J=l <^$A*A„$B*B„$C*C_$D*D__" 

"$E*E $F*F $G*G $H*H 3W)",E0L 


BYTE "Y=<£" 

BYTE CE, '2 

BYTE " NR 1 000 ( 1 OF+P ) " 



BYTE CE, '3 
BYTE "@+P J) " , EOL 

BYTE EOF 




CONTROL CODE EQUATES FOR CANNED PROGRAMS 


CTRL-A 

CTRL-D 

CTRL-E 

CTRL-M 

CTRL-T 






.... -r— 




-i ' .T--' 




















